Upgrade to Devel::PPPort 3.01.

p4raw-id: //depot/perl@23234

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index de5fc44..0c97bf9 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,7 @@
+3.01 - 2004-08-23
+
+    * patchlevel.h tweak
+
 3.00_03 - 2004-08-20
 
     * make sure the @INC path is kept up-to-date when changing

diff --git a/ext/Devel/PPPort/META.yml b/ext/Devel/PPPort/META.yml
index 4a1781b..0ebb162 100644 (file)
--- a/ext/Devel/PPPort/META.yml
+++ b/ext/Devel/PPPort/META.yml
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Devel-PPPort
-version:      3.00_03
+version:      3.01
 version_from: PPPort_pm.PL
 installdirs:  perl
 requires:

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 0a3bb04..ac035d6 100644 (file)
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -866,7 +866,7 @@ require DynaLoader;
 use strict;
 use vars qw($VERSION @ISA $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.00_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 @ISA = qw(DynaLoader);
 
@@ -3408,7 +3408,7 @@ __DATA__
 #define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name)
 
 #ifndef PERL_REVISION
-#  ifndef __PATCHLEVEL_H_INCLUDED__
+#  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
 #    define PERL_PATCHLEVEL_H_IMPLICIT
 #    include <patchlevel.h>
 #  endif

diff --git a/ext/Devel/PPPort/PPPort_pm.PL b/ext/Devel/PPPort/PPPort_pm.PL
index ed6f6a5..fa270f7 100644 (file)
--- a/ext/Devel/PPPort/PPPort_pm.PL
+++ b/ext/Devel/PPPort/PPPort_pm.PL
@@ -473,7 +473,7 @@ require DynaLoader;
 use strict;
 use vars qw($VERSION @ISA $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.00_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.01 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 @ISA = qw(DynaLoader);
 

diff --git a/ext/Devel/PPPort/module2.c b/ext/Devel/PPPort/module2.c
index c0ca27e..5e59ae3 100644 (file)
--- a/ext/Devel/PPPort/module2.c
+++ b/ext/Devel/PPPort/module2.c
@@ -4,9 +4,9 @@
 *
 ********************************************************************************
 *
-*  $Revision: 4 $
+*  $Revision: 5 $
 *  $Author: mhx $
-*  $Date: 2004/08/13 12:49:24 +0200 $
+*  $Date: 2004/08/23 00:51:54 +0200 $
 *
 ********************************************************************************
 *
@@ -23,6 +23,10 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#ifndef PATCHLEVEL
+#include "patchlevel.h"
+#endif
+
 #define NEED_newCONSTSUB_GLOBAL
 #include "ppport.h"
 

diff --git a/ext/Devel/PPPort/parts/inc/ppphtest b/ext/Devel/PPPort/parts/inc/ppphtest
index 9b4bbdf..58de18f 100644 (file)
--- a/ext/Devel/PPPort/parts/inc/ppphtest
+++ b/ext/Devel/PPPort/parts/inc/ppphtest
@@ -1,8 +1,8 @@
 ################################################################################
 ##
-##  $Revision: 20 $
+##  $Revision: 21 $
 ##  $Author: mhx $
-##  $Date: 2004/08/20 15:29:23 +0200 $
+##  $Date: 2004/08/21 13:26:21 +0200 $
 ##
 ################################################################################
 ##
@@ -39,8 +39,8 @@ if ($perl =~ m!^\./!) {
 }
 
 END {
-  chdir("..") if !-d $tmp && -d "../$tmp";
-  rmtree($tmp);
+  chdir('..') if !-d $tmp && -d "../$tmp";
+  rmtree($tmp) if -d $tmp;
 }
 
 ok(&Devel::PPPort::WriteFile("ppport.h"));

diff --git a/ext/Devel/PPPort/parts/inc/version b/ext/Devel/PPPort/parts/inc/version
index ac218c6..97893c1 100644 (file)
--- a/ext/Devel/PPPort/parts/inc/version
+++ b/ext/Devel/PPPort/parts/inc/version
@@ -1,8 +1,8 @@
 ################################################################################
 ##
-##  $Revision: 2 $
+##  $Revision: 3 $
 ##  $Author: mhx $
-##  $Date: 2004/08/13 12:47:17 +0200 $
+##  $Date: 2004/08/23 00:49:05 +0200 $
 ##
 ################################################################################
 ##
@@ -29,7 +29,7 @@ PERL_PATCHLEVEL_H_IMPLICIT
 =implementation
 
 #ifndef PERL_REVISION
-#  ifndef __PATCHLEVEL_H_INCLUDED__
+#  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
 #    define PERL_PATCHLEVEL_H_IMPLICIT
 #    include <patchlevel.h>
 #  endif

diff --git a/ext/Devel/PPPort/t/ppphtest.t b/ext/Devel/PPPort/t/ppphtest.t
index 52e18ef..e856f18 100644 (file)
--- a/ext/Devel/PPPort/t/ppphtest.t
+++ b/ext/Devel/PPPort/t/ppphtest.t
@@ -57,8 +57,8 @@ if ($perl =~ m!^\./!) {
 }
 
 END {
-  chdir("..") if !-d $tmp && -d "../$tmp";
-  rmtree($tmp);
+  chdir('..') if !-d $tmp && -d "../$tmp";
+  rmtree($tmp) if -d $tmp;
 }
 
 ok(&Devel::PPPort::WriteFile("ppport.h"));