#
################################################################################
#
-# $Revision: 43 $
+# $Revision: 44 $
# $Author: mhx $
-# $Date: 2006/05/22 00:51:20 +0200 $
+# $Date: 2006/05/22 20:28:47 +0200 $
#
################################################################################
#
{join "\n", @todo}gem;
$data =~ s{__MIN_PERL__}{5.003}g;
-$data =~ s{__MAX_PERL__}{5.9.3}g;
+$data =~ s{__MAX_PERL__}{5.9.4}g;
open FH, ">PPPort.pm" or die "PPPort.pm: $!\n";
print FH $data;
#
################################################################################
#
-# $Revision: 43 $
+# $Revision: 44 $
# $Author: mhx $
-# $Date: 2006/05/22 00:51:20 +0200 $
+# $Date: 2006/05/22 20:28:47 +0200 $
#
################################################################################
#
use strict;
use vars qw($VERSION @ISA $data);
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.08_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.08_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
@ISA = qw(DynaLoader);