From: Jan Rękorajski <baggins@pld-linux.org>
Date: Tue, 26 Sep 2000 19:47:35 +0000 (+0000)
Subject: d41edb020c64e4f5dbafabab42f82edd  perl-CPAN-1.50.patch
X-Git-Tag: perl-5_6_0-11~4
X-Git-Url: https://git.pld-linux.org/?p=packages%2Fperl.git;a=commitdiff_plain;h=8b982d63b7c0e758f572cd8107f450d145f2cc46

d41edb020c64e4f5dbafabab42f82edd  perl-CPAN-1.50.patch
dacc0187e7ac4d39fa2088b37d1a5218  perl-File-Spec-0.7.patch

Changed files:
    perl-File-Spec-0.7.patch -> 1.1
---

diff --git a/perl-File-Spec-0.7.patch b/perl-File-Spec-0.7.patch
new file mode 100644
index 0000000..596f830
--- /dev/null
+++ b/perl-File-Spec-0.7.patch
@@ -0,0 +1,125 @@
+diff -urN perl5.005_03.old/lib/File/Spec/Functions.pm perl5.005_03/lib/File/Spec/Functions.pm
+--- perl5.005_03.old/lib/File/Spec/Functions.pm	Thu Jan  1 01:00:00 1970
++++ perl5.005_03/lib/File/Spec/Functions.pm	Sun Dec  6 05:22:30 1998
+@@ -0,0 +1,37 @@
++package File::Spec::Functions;
++
++use File::Spec;
++use strict;
++
++use vars qw(@ISA @EXPORT);
++
++require Exporter;
++
++@ISA = qw(Exporter);
++
++@EXPORT = qw(
++	canonpath
++	catdir
++	catfile
++	curdir
++	rootdir
++	updir
++	no_upwards
++	file_name_is_absolute
++	path
++	nativename
++);
++
++sub canonpath { File::Spec->canonpath(@_); }
++sub catdir { File::Spec->catdir(@_); }
++sub catfile { File::Spec->catfile(@_); }
++sub curdir { File::Spec->curdir(@_); }
++sub rootdir { File::Spec->rootdir(@_); }
++sub updir { File::Spec->updir(@_); }
++sub no_upwards { File::Spec->no_upwards(@_); }
++sub file_name_is_absolute { File::Spec->file_name_is_absolute(@_); }
++sub path { File::Spec->path(@_); }
++sub nativename { File::Spec->nativename(@_); }
++
++1;
++
+diff -urN perl5.005_03.old/lib/File/Spec/Mac.pm perl5.005_03/lib/File/Spec/Mac.pm
+--- perl5.005_03.old/lib/File/Spec/Mac.pm	Thu Jan  7 05:41:53 1999
++++ perl5.005_03/lib/File/Spec/Mac.pm	Sun Feb 22 16:31:58 1998
+@@ -52,7 +52,7 @@
+ 	  File::Spec->catdir(split(":",$path)) eq $path
+ 
+ But because of the nature of Macintosh paths, some additional 
+-possibilities are allowed to make using this routine give reasonable results 
++possibilities are allowed to make using this routine give resonable results 
+ for some common situations.  Here are the rules that are used.  Each 
+ argument has its trailing ":" removed.  Each argument, except the first,
+ has its leading ":" removed.  They are then joined together by a ":".
+@@ -78,7 +78,7 @@
+ 	  File::Spec->catfile("LWP","Protocol","http.pm")
+ 
+ be relative or absolute?  There's no way of telling except by checking for the
+-existence of LWP: or :LWP, and even there he may mean a dismounted volume or
++existance of LWP: or :LWP, and even there he may mean a dismounted volume or
+ a relative path in a different directory (like in @INC).   So those checks
+ aren't done here. This routine will treat this as absolute.
+ 
+diff -urN perl5.005_03.old/lib/File/Spec.pm perl5.005_03/lib/File/Spec.pm
+--- perl5.005_03.old/lib/File/Spec.pm	Thu Jan  7 05:41:53 1999
++++ perl5.005_03/lib/File/Spec.pm	Sun Dec  6 05:48:23 1998
+@@ -14,7 +14,7 @@
+ use strict;
+ use vars qw(@ISA $VERSION $Verbose);
+ 
+-$VERSION = '0.6';
++$VERSION = '0.7';
+ 
+ $Verbose = 0;
+ 
+@@ -52,11 +52,15 @@
+ 
+ =head1 SYNOPSIS
+ 
+-C<use File::Spec;>
++	use File::Spec;
+ 
+-C<$x=File::Spec-E<gt>catfile('a','b','c');>
++	$x=File::Spec->catfile('a', 'b', 'c');
+ 
+-which returns 'a/b/c' under Unix.
++which returns 'a/b/c' under Unix. Or:
++
++	use File::Spec::Functions;
++	
++	$x = catfile('a', 'b', 'c');
+ 
+ =head1 DESCRIPTION
+ 
+@@ -78,8 +82,8 @@
+ 	File::Spec::VMS
+ 
+ The module appropriate for the current OS is automatically loaded by
+-File::Spec. Since some modules (like VMS) make use of OS specific
+-facilities, it may not be possible to load all modules under all operating
++File::Spec. Since some modules (like VMS) make use of facilities only under
++that OS, it may not be possible to load all modules under all operating
+ systems.
+ 
+ Since File::Spec is object oriented, subroutines should not called directly,
+@@ -91,9 +95,17 @@
+ 
+ 	File::Spec->catfile('a','b');
+ 
+-For a reference of available functions, please consult L<File::Spec::Unix>,
+-which contains the entire set, and inherited by the modules for other
+-platforms. For further information, please see L<File::Spec::Mac>,
++Alternatively, File::Spec::Functions can be used instead, which exports
++functions for all of the class methods provided by File::Spec, including
++catfile, so you may say:
++
++	use File::Spec::Functions;
++	
++	catfile('a','b');
++
++For a reference of available functions, pleaes consult L<File::Spec::Unix>,
++which contains the entire set, and which is inherited by the modules for
++other platforms. For further information, please see L<File::Spec::Mac>,
+ L<File::Spec::OS2>, L<File::Spec::Win32>, or L<File::Spec::VMS>.
+ 
+ =head1 SEE ALSO