Upgrade to PathTools 3.04

(plus tweaks to Cwd and cwd.t to run when building perl)

p4raw-id: //depot/perl@23977

12 files changed, 84 insertions, 10 deletions

diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index a2c4b974c1..44771c97eb 100644
--- a/lib/File/Spec.pm
+++ b/lib/File/Spec.pm
@@ -3,7 +3,7 @@ package File::Spec;
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.01';
+$VERSION = '3.04';
 $VERSION = eval $VERSION;
 
 my %module = (MacOS   => 'Mac',
@@ -304,4 +304,11 @@ abs2rel() and rel2abs() written by Shigio Yamaguchi C<< <shigio@tamacom.com> >>,
 modified by Barrie Slaymaker C<< <barries@slaysys.com> >>.
 splitpath(), splitdir(), catpath() and catdir() by Barrie Slaymaker.
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =cut
diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
index 0712add8e6..e01e03537a 100644
--- a/lib/File/Spec/Cygwin.pm
+++ b/lib/File/Spec/Cygwin.pm
@@ -82,6 +82,13 @@ sub tmpdir {
 
 =back
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =cut
 
 1;
diff --git a/lib/File/Spec/Epoc.pm b/lib/File/Spec/Epoc.pm
index 89ca0b99d9..a7168f9e49 100644
--- a/lib/File/Spec/Epoc.pm
+++ b/lib/File/Spec/Epoc.pm
@@ -24,10 +24,6 @@ the semantics.
 
 This package is still work in progress ;-)
 
-=head1 AUTHORS
-
-o.flebbe@gmx.de
-
 =cut
 
 sub case_tolerant {
@@ -60,6 +56,17 @@ sub canonpath {
 
 =pod
 
+=head1 AUTHOR
+
+o.flebbe@gmx.de
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =head1 SEE ALSO
 
 See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm
index 1c36e8b946..38c898c5d8 100644
--- a/lib/File/Spec/Functions.pm
+++ b/lib/File/Spec/Functions.pm
@@ -93,7 +93,17 @@ The following functions are exported only by request.
 
 All the functions may be imported using the C<:ALL> tag.
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =head1 SEE ALSO
 
 File::Spec, File::Spec::Unix, File::Spec::Mac, File::Spec::OS2,
 File::Spec::Win32, File::Spec::VMS, ExtUtils::MakeMaker
+
+=cut
+
diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm
index 34a7a015f2..e31737ca71 100644
--- a/lib/File/Spec/Mac.pm
+++ b/lib/File/Spec/Mac.pm
@@ -764,6 +764,13 @@ sub rel2abs {
 See the authors list in I<File::Spec>. Mac OS support by Paul Schinder
 <schinder@pobox.com> and Thomas Wegner <wegner_thomas@yahoo.com>.
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =head1 SEE ALSO
 
 See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
diff --git a/lib/File/Spec/OS2.pm b/lib/File/Spec/OS2.pm
index 47dc0a6ad6..9f2ca3c5a4 100644
--- a/lib/File/Spec/OS2.pm
+++ b/lib/File/Spec/OS2.pm
@@ -263,4 +263,11 @@ Volumes can be drive letters or UNC sharenames (\\server\share).
 
 =back
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =cut
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index 349757b682..46158bddd9 100644
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -445,6 +445,13 @@ sub rel2abs {
 
 =back
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =head1 SEE ALSO
 
 L<File::Spec>
diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm
index 82d639f3f1..e085e0a63d 100644
--- a/lib/File/Spec/VMS.pm
+++ b/lib/File/Spec/VMS.pm
@@ -182,7 +182,7 @@ sub canonpath {
 	$path =~ s/\.[^\]\.]+\.-\./\./g;	# .foo.-.	==> .
 	$path =~ s/\[[^\]\.]+\.-\./\[/g;	# [foo.-.	==> [
 	$path =~ s/\.[^\]\.]+\.-\]/\]/g;	# .foo.-]	==> ]
-	$path =~ s/\[[^\]\.]+\.-\]/\[\]/g;	# [foo.-]	==> []
+	$path =~ s/\[[^\]\.]+\.-\]/\[000000\]/g;# [foo.-]       ==> [000000]
 	$path =~ s/\[\]//;			# []		==>
 	return $path;
     }
@@ -477,7 +477,11 @@ sub rel2abs {
     my $self = shift ;
     my ($path,$base ) = @_;
     return undef unless defined $path;
-    $path = vmsify($path) if $path =~ m/\//;
+    if ($path =~ m/\//) {
+	$path = ( -d $path || $path =~ m/\/\z/  # educated guessing about
+		   ? vmspath($path)             # whether it's a directory
+		   : vmsify($path) );
+    }
     $base = vmspath($base) if defined $base && $base =~ m/\//;
     # Clean up and split up $path
     if ( ! $self->file_name_is_absolute( $path ) ) {
@@ -518,6 +522,13 @@ sub rel2abs {
 
 =back
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =head1 SEE ALSO
 
 See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index 0d60cfb154..de560ce2ec 100644
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -368,6 +368,13 @@ sub rel2abs {
 
 Novell NetWare inherits its File::Spec behaviour from File::Spec::Win32.
 
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
 =head1 SEE ALSO
 
 See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
diff --git a/lib/File/Spec/t/Spec.t b/lib/File/Spec/t/Spec.t
index 0ceb81cee1..565eb8c213 100644
--- a/lib/File/Spec/t/Spec.t
+++ b/lib/File/Spec/t/Spec.t
@@ -322,6 +322,7 @@ if ($^O eq 'MacOS') {
 [ "VMS->canonpath('[d1.000000.][000000.][d3.--.000000]file.txt')", 	'[d1.000000]file.txt' ],
 [ "VMS->canonpath('volume:[d1.000000.][000000.][-.-.000000]file.txt')",	'volume:[000000]file.txt' ],
 [ "VMS->canonpath('[d1.000000.][000000.][--.-.000000]file.txt')", 	'[-.000000]file.txt' ],
+[ "VMS->canonpath('[d1.d2.--]file')",                                   '[000000]file'       ],
 
 [ "VMS->splitdir('')",            ''          ],
 [ "VMS->splitdir('[]')",          ''          ],
@@ -607,7 +608,7 @@ plan tests => scalar @tests;
 
     # Some funky stuff to override Cwd::getdcwd() for testing purposes,
     # in the limited scope of the rel2abs() method.
-    if ($Cwd::VERSION gt '2.17') {
+    if ($Cwd::VERSION && $Cwd::VERSION gt '2.17') {  # Avoid a 'used only once' warning
 	local $^W;
 	*rel2abs = sub {
 	    my $self = shift;
diff --git a/lib/File/Spec/t/crossplatform.t b/lib/File/Spec/t/crossplatform.t
index a98e091b3a..2da585ec54 100644
--- a/lib/File/Spec/t/crossplatform.t
+++ b/lib/File/Spec/t/crossplatform.t
@@ -1,8 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More;
 use File::Spec;
+use lib File::Spec->catfile('t', 'lib');
+use Test::More;
 local $|=1;
 
 my @platforms = qw(Cygwin Epoc Mac OS2 Unix VMS Win32);
diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t
index 7af1042c0b..0959d574b9 100644
--- a/lib/File/Spec/t/rel2abs2rel.t
+++ b/lib/File/Spec/t/rel2abs2rel.t
@@ -3,6 +3,9 @@
 # Here we make sure File::Spec can properly deal with executables.
 # VMS has some trouble with these.
 
+use File::Spec;
+use lib File::Spec->catdir('t', 'lib');
+
 use Test::More (-x $^X
 		? (tests => 5)
 		: (skip_all => "Can't find an executable file")
@@ -22,7 +25,6 @@ END {
 
 use Config;
 
-use File::Spec;
 
 # Change 'perl' to './perl' so the shell doesn't go looking through PATH.
 sub safe_rel {