blob: 5a695d2aa0006c18b174c0867aeb7a73eb15cc48 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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");
}
|