1package Devel::PPPort; 2sub bootstrap {}; 3require "PPPort.pm"; 4WriteFile("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 18