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.