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
./
1
N/A
package
Devel
::
PPPort
;
1
N/A
sub
bootstrap
{};
1
N/A
require
"
PPPort.pm
"
;
1
N/A
WriteFile
(
"ppport.tmp"
);
1
N/A
{
1
N/A
local
$/;
1
N/A
my
$
old
=
''
;
1
N/A
my
$
new
=
''
;
1
N/A
$
old
= <
FH
>
if
open
(
FH
,
"ppport.h"
);
close
FH
;
1
N/A
$
new
= <
FH
>
if
open
(
FH
,
"ppport.tmp"
);
close
FH
;
1
N/A
if
($
old
ne
$
new
) {
1
N/A
unlink
(
"ppport.h"
);
1
N/A
rename
(
"ppport.tmp"
,
"ppport.h"
);
1
N/A
}
1
N/A
unlink
(
"ppport.tmp"
);
1
N/A
}
1
N/A