Change 18465 by rgs@rgs-home on 2003/01/08 22:02:26
Fix the doc for splitpath() in the File::Spec modules :
this function doesn't return undef in any case.
Affected files ...
... //depot/perl/lib/File/Spec.pm#25 edit
... //depot/perl/lib/File/Spec/Mac.pm#19 edit
... //depot/perl/lib/File/Spec/OS2.pm#12 edit
... //depot/perl/lib/File/Spec/Unix.pm#34 edit
... //depot/perl/lib/File/Spec/Win32.pm#27 edit
Differences ...
==== //depot/perl/lib/File/Spec.pm#25 (text) ====
Index: perl/lib/File/Spec.pm
--- perl/lib/File/Spec.pm#24~18282~ Wed Dec 11 02:16:05 2002
+++ perl/lib/File/Spec.pm Wed Jan 8 14:02:26 2003
@@ -175,7 +175,7 @@
=item splitpath
Splits a path in to volume, directory, and filename portions. On systems
-with no concept of volume, returns undef for volume.
+with no concept of volume, returns '' for volume.
($volume,$directories,$file) = File::Spec->splitpath( $path );
($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
==== //depot/perl/lib/File/Spec/Mac.pm#19 (text) ====
Index: perl/lib/File/Spec/Mac.pm
--- perl/lib/File/Spec/Mac.pm#18~16142~ Wed Apr 24 11:30:14 2002
+++ perl/lib/File/Spec/Mac.pm Wed Jan 8 14:02:26 2003
@@ -442,7 +442,7 @@
($volume,$directories,$file) = File::Spec->splitpath( $path );
($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
-Splits a path in to volume, directory, and filename portions.
+Splits a path into volume, directory, and filename portions.
On Mac OS, assumes that the last part of the path is a filename unless
$no_file is true or a trailing separator ":" is present.
==== //depot/perl/lib/File/Spec/OS2.pm#12 (text) ====
Index: perl/lib/File/Spec/OS2.pm
--- perl/lib/File/Spec/OS2.pm#11~13838~ Fri Dec 21 11:52:09 2001
+++ perl/lib/File/Spec/OS2.pm Wed Jan 8 14:02:26 2003
@@ -76,10 +76,10 @@
($volume,$directories,$file) = File::Spec->splitpath( $path );
($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
-Splits a path in to volume, directory, and filename portions. Assumes that
+Splits a path into volume, directory, and filename portions. Assumes that
the last file is a path unless the path ends in '/', '/.', '/..'
or $no_file is true. On Win32 this means that $no_file true makes this return
-( $volume, $path, undef ).
+( $volume, $path, '' ).
Separators accepted are \ and /.
==== //depot/perl/lib/File/Spec/Unix.pm#34 (text) ====
Index: perl/lib/File/Spec/Unix.pm
--- perl/lib/File/Spec/Unix.pm#33~18461~ Wed Jan 8 13:16:54 2003
+++ perl/lib/File/Spec/Unix.pm Wed Jan 8 14:02:26 2003
@@ -235,8 +235,8 @@
($volume,$directories,$file) = File::Spec->splitpath( $path );
($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
-Splits a path in to volume, directory, and filename portions. On systems
-with no concept of volume, returns undef for volume.
+Splits a path into volume, directory, and filename portions. On systems
+with no concept of volume, returns '' for volume.
For systems with no syntax differentiating filenames from directories,
assumes that the last file is a path unless $no_file is true or a
==== //depot/perl/lib/File/Spec/Win32.pm#27 (text) ====
Index: perl/lib/File/Spec/Win32.pm
--- perl/lib/File/Spec/Win32.pm#26~17997~ Fri Oct 11 05:10:39 2002
+++ perl/lib/File/Spec/Win32.pm Wed Jan 8 14:02:26 2003
@@ -170,10 +170,10 @@
($volume,$directories,$file) = File::Spec->splitpath( $path );
($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
-Splits a path in to volume, directory, and filename portions. Assumes that
+Splits a path into volume, directory, and filename portions. Assumes that
the last file is a path unless the path ends in '\\', '\\.', '\\..'
or $no_file is true. On Win32 this means that $no_file true makes this return
-( $volume, $path, undef ).
+( $volume, $path, '' ).
Separators accepted are \ and /.
End of Patch.
