ppport_h.PL revision 7c478bd95313f5f23a4c958a745db2134aa03244
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");
}