Commit | Line | Data |
---|---|---|
adfe19db MHM |
1 | ################################################################################ |
2 | # | |
3 | # ppport_h.PL -- generate ppport.h | |
4 | # | |
5 | ################################################################################ | |
6 | # | |
b2049988 | 7 | # Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. |
adfe19db MHM |
8 | # Version 2.x, Copyright (C) 2001, Paul Marquess. |
9 | # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. | |
10 | # | |
11 | # This program is free software; you can redistribute it and/or | |
12 | # modify it under the same terms as Perl itself. | |
13 | # | |
14 | ################################################################################ | |
15 | ||
4a582685 | 16 | package Devel::PPPort; |
874389ae | 17 | require "./PPPort.pm"; |
adfe19db MHM |
18 | rename 'ppport.h', 'ppport.old' if -f 'ppport.h'; |
19 | unlink "ppport.old" if WriteFile("ppport.h") && -f 'ppport.h'; |