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