X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FSpec.pm;h=0c5c0c02f3e259c24025a38893ef09bc5726e99e;hb=605986241de3d828e4de2beec37dc9ecc5aaa260;hp=7cb71921887f5c5e4f88da3a74404422ab86f5d7;hpb=86d86cadad68b71393e3371f0e467c29982578f9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm index 7cb7192..0c5c0c0 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.05'; +$VERSION = '3.07'; $VERSION = eval $VERSION; my %module = (MacOS => 'Mac', @@ -13,7 +13,7 @@ my %module = (MacOS => 'Mac', epoc => 'Epoc', NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare. symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian. - dos => 'OS2', # Yes, File::Spec::OS2 works on DJGPP. + dos => 'OS2', # Yes, File::Spec::OS2 works on DJGPP. cygwin => 'Cygwin'); @@ -89,6 +89,13 @@ path. $cpath = File::Spec->canonpath( $path ) ; +Note that this does *not* collapse F sections into F. This +is by design. If F on your system is a symlink to F, +then F is actually F, not F as a naive +F<../>-removal would give you. If you want to do this kind of +processing, you probably want C's C function to +actually traverse the filesystem cleaning up paths like this. + =item catdir Concatenate two or more directory names to form a complete path ending