Cross Reference: ppport_h.PL
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
Devel
/
PPPort
/
ppport_h.PL
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
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"
);
}