1################################################################################ 2# 3# ppport_h.PL -- generate ppport.h 4# 5################################################################################ 6# 7# $Revision: 5 $ 8# $Author: mhx $ 9# $Date: 2005/03/10 18:45:41 +0100 $ 10# 11################################################################################ 12# 13# Version 3.x, Copyright (C) 2004-2005, Marcus Holland-Moritz. 14# Version 2.x, Copyright (C) 2001, Paul Marquess. 15# Version 1.x, Copyright (C) 1999, Kenneth Albanowski. 16# 17# This program is free software; you can redistribute it and/or 18# modify it under the same terms as Perl itself. 19# 20################################################################################ 21 22package Devel::PPPort; 23sub bootstrap {}; 24require "PPPort.pm"; 25rename 'ppport.h', 'ppport.old' if -f 'ppport.h'; 26unlink "ppport.old" if WriteFile("ppport.h") && -f 'ppport.h'; 27