Change 34609 by [EMAIL PROTECTED] on 2008/10/27 21:34:55
Upgrade to PathTools 3.28_03.
Affected files ...
... //depot/perl/ext/Cwd/Changes#32 edit
... //depot/perl/lib/Cwd.pm#115 edit
... //depot/perl/lib/File/Spec.pm#62 edit
... //depot/perl/lib/File/Spec/Cygwin.pm#24 edit
... //depot/perl/lib/File/Spec/Epoc.pm#15 edit
... //depot/perl/lib/File/Spec/Functions.pm#18 edit
... //depot/perl/lib/File/Spec/Mac.pm#33 edit
... //depot/perl/lib/File/Spec/OS2.pm#29 edit
... //depot/perl/lib/File/Spec/Unix.pm#64 edit
... //depot/perl/lib/File/Spec/VMS.pm#53 edit
... //depot/perl/lib/File/Spec/Win32.pm#50 edit
Differences ...
==== //depot/perl/ext/Cwd/Changes#32 (text) ====
Index: perl/ext/Cwd/Changes
--- perl/ext/Cwd/Changes#31~34607~ 2008-10-27 14:01:18.000000000 -0700
+++ perl/ext/Cwd/Changes 2008-10-27 14:34:55.000000000 -0700
@@ -1,5 +1,17 @@
Revision history for Perl distribution PathTools.
+3.28_03 - Mon Oct 27 22:12:11 2008
+
+- In Cwd.pm, pass the un-munged $VERSION to XSLoader/DynaLoader,
+ otherwise development releases fail tests on Win32.
+
+3.28_02 - Mon Oct 27 20:13:11 2008
+
+ - Fixed some issues on QNX/NTO related to paths with double
+ slashes. [Matt Kraai & Nicholas Clark]
+
+3.28_01 - Fri Jul 25 21:18:11 2008
+
- Fixed and clarified the behavior of splitpath() with a $no_file
argument on VMS. [Craig A. Berry, Peter Edwards]
==== //depot/perl/lib/Cwd.pm#115 (text) ====
Index: perl/lib/Cwd.pm
--- perl/lib/Cwd.pm#114~34514~ 2008-10-19 03:23:11.000000000 -0700
+++ perl/lib/Cwd.pm 2008-10-27 14:34:55.000000000 -0700
@@ -171,7 +171,8 @@
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
+my $xs_version = $VERSION;
$VERSION = eval $VERSION;
@ISA = qw/ Exporter /;
@@ -205,11 +206,11 @@
eval {
if ( $] >= 5.006 ) {
require XSLoader;
- XSLoader::load( __PACKAGE__, $VERSION );
+ XSLoader::load( __PACKAGE__, $xs_version);
} else {
require DynaLoader;
push @ISA, 'DynaLoader';
- __PACKAGE__->bootstrap( $VERSION );
+ __PACKAGE__->bootstrap( $xs_version );
}
};
==== //depot/perl/lib/File/Spec.pm#62 (text) ====
Index: perl/lib/File/Spec.pm
--- perl/lib/File/Spec.pm#61~34514~ 2008-10-19 03:23:11.000000000 -0700
+++ perl/lib/File/Spec.pm 2008-10-27 14:34:55.000000000 -0700
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA $VERSION);
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
my %module = (MacOS => 'Mac',
==== //depot/perl/lib/File/Spec/Cygwin.pm#24 (text) ====
Index: perl/lib/File/Spec/Cygwin.pm
--- perl/lib/File/Spec/Cygwin.pm#23~34514~ 2008-10-19 03:23:11.000000000
-0700
+++ perl/lib/File/Spec/Cygwin.pm 2008-10-27 14:34:55.000000000 -0700
@@ -4,7 +4,7 @@
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
@ISA = qw(File::Spec::Unix);
==== //depot/perl/lib/File/Spec/Epoc.pm#15 (text) ====
Index: perl/lib/File/Spec/Epoc.pm
--- perl/lib/File/Spec/Epoc.pm#14~34514~ 2008-10-19 03:23:11.000000000
-0700
+++ perl/lib/File/Spec/Epoc.pm 2008-10-27 14:34:55.000000000 -0700
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
require File::Spec::Unix;
==== //depot/perl/lib/File/Spec/Functions.pm#18 (text) ====
Index: perl/lib/File/Spec/Functions.pm
--- perl/lib/File/Spec/Functions.pm#17~34514~ 2008-10-19 03:23:11.000000000
-0700
+++ perl/lib/File/Spec/Functions.pm 2008-10-27 14:34:55.000000000 -0700
@@ -5,7 +5,7 @@
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
require Exporter;
==== //depot/perl/lib/File/Spec/Mac.pm#33 (text) ====
Index: perl/lib/File/Spec/Mac.pm
--- perl/lib/File/Spec/Mac.pm#32~34514~ 2008-10-19 03:23:11.000000000 -0700
+++ perl/lib/File/Spec/Mac.pm 2008-10-27 14:34:55.000000000 -0700
@@ -4,7 +4,7 @@
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
@ISA = qw(File::Spec::Unix);
==== //depot/perl/lib/File/Spec/OS2.pm#29 (text) ====
Index: perl/lib/File/Spec/OS2.pm
--- perl/lib/File/Spec/OS2.pm#28~34514~ 2008-10-19 03:23:11.000000000 -0700
+++ perl/lib/File/Spec/OS2.pm 2008-10-27 14:34:55.000000000 -0700
@@ -4,7 +4,7 @@
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
@ISA = qw(File::Spec::Unix);
==== //depot/perl/lib/File/Spec/Unix.pm#64 (text) ====
Index: perl/lib/File/Spec/Unix.pm
--- perl/lib/File/Spec/Unix.pm#63~34514~ 2008-10-19 03:23:11.000000000
-0700
+++ perl/lib/File/Spec/Unix.pm 2008-10-27 14:34:55.000000000 -0700
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
=head1 NAME
@@ -50,7 +50,10 @@
# more than two leading slashes shall be treated as a single slash.")
my $node = '';
my $double_slashes_special = $^O eq 'qnx' || $^O eq 'nto';
- if ( $double_slashes_special && $path =~ s{^(//[^/]+)(?:/|\z)}{/}s ) {
+
+
+ if ( $double_slashes_special
+ && ( $path =~ s{^(//[^/]+)/?\z}{}s || $path =~ s{^(//[^/]+)/}{/}s ) )
{
$node = $1;
}
# This used to be
==== //depot/perl/lib/File/Spec/VMS.pm#53 (text) ====
Index: perl/lib/File/Spec/VMS.pm
--- perl/lib/File/Spec/VMS.pm#52~34514~ 2008-10-19 03:23:11.000000000 -0700
+++ perl/lib/File/Spec/VMS.pm 2008-10-27 14:34:55.000000000 -0700
@@ -4,7 +4,7 @@
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
@ISA = qw(File::Spec::Unix);
==== //depot/perl/lib/File/Spec/Win32.pm#50 (text) ====
Index: perl/lib/File/Spec/Win32.pm
--- perl/lib/File/Spec/Win32.pm#49~34514~ 2008-10-19 03:23:11.000000000
-0700
+++ perl/lib/File/Spec/Win32.pm 2008-10-27 14:34:55.000000000 -0700
@@ -5,7 +5,7 @@
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.28_01';
+$VERSION = '3.28_03';
$VERSION = eval $VERSION;
@ISA = qw(File::Spec::Unix);
End of Patch.
