From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Fri, 20 Aug 2004 13:18:08 +0000 (+0000)
Subject: Upgrade to Devel::PPPort 3.00_03.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87499469a499c34de2e9d2f7beb23f683254b418;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Devel::PPPort 3.00_03.

p4raw-id: //depot/perl@23229
---

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index 961f742..de5fc44 100755
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,8 @@
+3.00_03 - 2004-08-20
+
+    * make sure the @INC path is kept up-to-date when changing
+      directories while running in the core test suite
+
 3.00_02 - 2004-08-19
 
     * remove PPPort.pm and PPPort.xs dependencies from Makefile.PL,
diff --git a/ext/Devel/PPPort/META.yml b/ext/Devel/PPPort/META.yml
index 2269a2b..4a1781b 100644
--- 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_02
+version:      3.00_03
 version_from: PPPort_pm.PL
 installdirs:  perl
 requires:
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index d3da198..0a3bb04 100644
--- 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_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.00_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 @ISA = qw(DynaLoader);
 
diff --git a/ext/Devel/PPPort/PPPort_pm.PL b/ext/Devel/PPPort/PPPort_pm.PL
index 1968061..ed6f6a5 100644
--- 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_02 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.00_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 @ISA = qw(DynaLoader);
 
diff --git a/ext/Devel/PPPort/parts/inc/ppphtest b/ext/Devel/PPPort/parts/inc/ppphtest
index f672dff..9b4bbdf 100644
--- a/ext/Devel/PPPort/parts/inc/ppphtest
+++ b/ext/Devel/PPPort/parts/inc/ppphtest
@@ -1,8 +1,8 @@
 ################################################################################
 ##
-##  $Revision: 19 $
+##  $Revision: 20 $
 ##  $Author: mhx $
-##  $Date: 2004/08/17 22:04:17 +0200 $
+##  $Date: 2004/08/20 15:29:23 +0200 $
 ##
 ################################################################################
 ##
@@ -29,7 +29,10 @@ mkpath($tmp) or die "mkpath $tmp: $!\n";
 chdir($tmp) or die "chdir $tmp: $!\n";
 
 if ($ENV{'PERL_CORE'}) {
-  $inc = '-I../../lib' if -d '../../lib';
+  if (-d '../../lib') {
+    $inc = '-I../../lib';
+    unshift @INC, '../../lib';
+  }
 }
 if ($perl =~ m!^\./!) {
   $perl = ".$perl";
diff --git a/ext/Devel/PPPort/t/ppphtest.t b/ext/Devel/PPPort/t/ppphtest.t
index 529bf3b..52e18ef 100644
--- a/ext/Devel/PPPort/t/ppphtest.t
+++ b/ext/Devel/PPPort/t/ppphtest.t
@@ -47,7 +47,10 @@ mkpath($tmp) or die "mkpath $tmp: $!\n";
 chdir($tmp) or die "chdir $tmp: $!\n";
 
 if ($ENV{'PERL_CORE'}) {
-  $inc = '-I../../lib' if -d '../../lib';
+  if (-d '../../lib') {
+    $inc = '-I../../lib';
+    unshift @INC, '../../lib';
+  }
 }
 if ($perl =~ m!^\./!) {
   $perl = ".$perl";