Upgrade to Devel::PPPort 3.10
Marcus Holland-Moritz [Mon, 14 Aug 2006 19:43:23 +0000 (19:43 +0000)]
p4raw-id: //depot/perl@28714

ext/Devel/PPPort/Changes
ext/Devel/PPPort/PPPort_pm.PL
ext/Devel/PPPort/soak

index a8b4770..330eb0c 100755 (executable)
@@ -1,3 +1,7 @@
+3.10 - 2006-08-14
+
+    * remove timestamp from generated ppport.h
+
 3.09_02 - 2006-07-25
 
     * added support for the following API
index fb98ced..b291b4c 100644 (file)
@@ -4,9 +4,9 @@
 #
 ################################################################################
 #
-#  $Revision: 48 $
+#  $Revision: 49 $
 #  $Author: mhx $
-#  $Date: 2006/07/24 21:03:14 +0200 $
+#  $Date: 2006/08/14 21:26:31 +0200 $
 #
 ################################################################################
 #
@@ -335,9 +335,9 @@ __DATA__
 #
 ################################################################################
 #
-#  $Revision: 48 $
+#  $Revision: 49 $
 #  $Author: mhx $
-#  $Date: 2006/07/24 21:03:14 +0200 $
+#  $Date: 2006/08/14 21:26:31 +0200 $
 #
 ################################################################################
 #
@@ -498,16 +498,14 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.09_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.10 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 sub _init_data
 {
   $data = do { local $/; <DATA> };
-  my $now = localtime;
   my $pkg = 'Devel::PPPort';
   $data =~ s/__PERL_VERSION__/$]/g;
   $data =~ s/__VERSION__/$VERSION/g;
-  $data =~ s/__DATE__/$now/g;
   $data =~ s/__PKG__/$pkg/g;
   $data =~ s/^\|>//gm;
 }
@@ -537,8 +535,7 @@ __DATA__
 
     ppport.h -- Perl/Pollution/Portability Version __VERSION__
 
-    Automatically created by __PKG__ running under
-    perl __PERL_VERSION__ on __DATE__.
+    Automatically created by __PKG__ running under perl __PERL_VERSION__.
 
     Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
     includes in parts/inc/ instead.
index 4a1d9f0..613e17c 100644 (file)
@@ -33,7 +33,7 @@ use File::Find;
 use List::Util qw(max);
 use Config;
 
-my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.09_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.10 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 $| = 1;
 my %OPT = (