1N/Apackage Devel::PPPort;
1N/Asub bootstrap {};
1N/Arequire "PPPort.pm";
1N/AWriteFile("ppport.tmp");
1N/A{
1N/A local $/;
1N/A my $old = '';
1N/A my $new = '';
1N/A $old = <FH> if open(FH, "ppport.h"); close FH;
1N/A $new = <FH> if open(FH, "ppport.tmp"); close FH;
1N/A if ($old ne $new) {
1N/A unlink("ppport.h");
1N/A rename("ppport.tmp", "ppport.h");
1N/A }
1N/A unlink("ppport.tmp");
1N/A}
1N/A