[perl5.git] / ext / Devel / PPPort / ppport_h.PL

package Devel::PPPort; 
sub bootstrap {}; 
require "PPPort.pm";
WriteFile("ppport.tmp");
{
    local $/;
    my $old = '';
    my $new = '';
    $old = <FH> if open(FH, "ppport.h");	close FH;
    $new = <FH> if open(FH, "ppport.tmp");	close FH;
    if ($old ne $new) {
	unlink("ppport.h");
	rename("ppport.tmp", "ppport.h");
    }
    unlink("ppport.tmp");
}
Commit	Line	Data
a06d4b7f NIS	1	package Devel::PPPort;
a06d4b7f NIS	2	sub bootstrap {};
90e434f8 JH	3	require "PPPort.pm";
	4	WriteFile("ppport.tmp");
	5	{
	6	local $/;
	7	my $old = '';
	8	my $new = '';
	9	$old = <FH> if open(FH, "ppport.h"); close FH;
	10	$new = <FH> if open(FH, "ppport.tmp"); close FH;
	11	if ($old ne $new) {
	12	unlink("ppport.h");
	13	rename("ppport.tmp", "ppport.h");
	14	}
	15	unlink("ppport.tmp");
	16	}
	17