r14933 - in /trunk/libfile-spec-perl: ./ debian/ lib/File/ lib/File/Spec/ t/

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Thu Feb 14 21:40:48 UTC 2008 

Author: gregoa-guest
Date: Thu Feb 14 21:40:47 2008
New Revision: 14933

URL: http://svn.debian.org/wsvn/?sc=1&rev=14933
Log:
New upstream release.

Modified:
    trunk/libfile-spec-perl/Changes
    trunk/libfile-spec-perl/Cwd.pm
    trunk/libfile-spec-perl/META.yml
    trunk/libfile-spec-perl/SIGNATURE
    trunk/libfile-spec-perl/debian/changelog
    trunk/libfile-spec-perl/lib/File/Spec.pm
    trunk/libfile-spec-perl/lib/File/Spec/Cygwin.pm
    trunk/libfile-spec-perl/lib/File/Spec/Epoc.pm
    trunk/libfile-spec-perl/lib/File/Spec/Functions.pm
    trunk/libfile-spec-perl/lib/File/Spec/Mac.pm
    trunk/libfile-spec-perl/lib/File/Spec/OS2.pm
    trunk/libfile-spec-perl/lib/File/Spec/Unix.pm
    trunk/libfile-spec-perl/lib/File/Spec/VMS.pm
    trunk/libfile-spec-perl/lib/File/Spec/Win32.pm
    trunk/libfile-spec-perl/t/Spec.t

Modified: trunk/libfile-spec-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/Changes?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/Changes (original)
+++ trunk/libfile-spec-perl/Changes Thu Feb 14 21:40:47 2008
@@ -1,6 +1,12 @@
 Revision history for Perl distribution PathTools.
 
-3.27
+ - Fixed an edge case for Win32 catdir('C:', 'foo') and catfile('C:',
+   'foo.txt') (which the caller's not really supposed to do, that's
+   what catpath() is for) that changed between versions.  Now we're
+   back to the old behavior, which was to return C:\foo and C:\foo.txt .
+   [Audrey Tang]
+
+3.27 - Wed Jan 16 20:20:49 2008
 
  - If strlcpy() and strlcat() aren't available on the user's system,
    we now use ppport.h to provide them, so our C code works. [Steve

Modified: trunk/libfile-spec-perl/Cwd.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/Cwd.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/Cwd.pm (original)
+++ trunk/libfile-spec-perl/Cwd.pm Thu Feb 14 21:40:47 2008
@@ -171,7 +171,7 @@
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 @ISA = qw/ Exporter /;
 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);

Modified: trunk/libfile-spec-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/META.yml?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/META.yml (original)
+++ trunk/libfile-spec-perl/META.yml Thu Feb 14 21:40:47 2008
@@ -1,6 +1,6 @@
 ---
 name: PathTools
-version: 3.27
+version: 3.2701
 author:
   - 'Maintained by Ken Williams <KWILLIAMS at cpan.org>'
 abstract: Tools for working with paths and file specs across platforms
@@ -21,34 +21,34 @@
 provides:
   Cwd:
     file: Cwd.pm
-    version: 3.27
+    version: 3.2701
   File::Spec:
     file: lib/File/Spec.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::Cygwin:
     file: lib/File/Spec/Cygwin.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::Epoc:
     file: lib/File/Spec/Epoc.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::Functions:
     file: lib/File/Spec/Functions.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::Mac:
     file: lib/File/Spec/Mac.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::OS2:
     file: lib/File/Spec/OS2.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::Unix:
     file: lib/File/Spec/Unix.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::VMS:
     file: lib/File/Spec/VMS.pm
-    version: 3.27
+    version: 3.2701
   File::Spec::Win32:
     file: lib/File/Spec/Win32.pm
-    version: 3.27
+    version: 3.2701
 generated_by: Module::Build version 0.2808
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

Modified: trunk/libfile-spec-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/SIGNATURE?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/SIGNATURE (original)
+++ trunk/libfile-spec-perl/SIGNATURE Thu Feb 14 21:40:47 2008
@@ -15,25 +15,25 @@
 Hash: SHA1
 
 SHA1 1197012d986a400414e13e25d519db39d392c730 Build.PL
-SHA1 01c4e5fd8643c35ed8a7f690eda85e6480f3614f Changes
-SHA1 dafcc38fa616d937fbf2fd511b02aa7abf7f59f0 Cwd.pm
+SHA1 ed7091cda8d093ad745b3f8f730c7a2f0c370966 Changes
+SHA1 de7e341ebf8859efcf3f4397ebd187b02cae0779 Cwd.pm
 SHA1 9691a4713c8ad848302b29bec74ca1652ef55ab1 Cwd.xs
 SHA1 ac6246562c365a8ad62f910ef31ce514d5a7e292 INSTALL
 SHA1 58c981892283d338e23971c5926089e0a6812caf MANIFEST
-SHA1 8078245ce9a9fbd6c86cf2dc38ea291ce096c784 META.yml
+SHA1 2a847578fe4d406d7630e78a96f5d7659f0e88c5 META.yml
 SHA1 3fb144a9fe45192b55f0b2950c7074241b4f4aa8 Makefile.PL
-SHA1 8d32bec3db1b74a87ce4fe227a63365072e61ce1 lib/File/Spec.pm
-SHA1 f929b8f8098de19bed2fc90da12eb48c3d215b3b lib/File/Spec/Cygwin.pm
-SHA1 8cc1639b561a544c893cfd4691cd9679f0c544d0 lib/File/Spec/Epoc.pm
-SHA1 62a17ab30b591e0b2a907c01ee29dcca9f4c294e lib/File/Spec/Functions.pm
-SHA1 4ce94e88eb527ddc43f57299d7e37cf60f32f366 lib/File/Spec/Mac.pm
-SHA1 f9d9d196b346edc2f4a88d78ba1bd8c4a8e366ae lib/File/Spec/OS2.pm
-SHA1 ad9807977f6e1617f2b8167a982074dc148dcc4d lib/File/Spec/Unix.pm
-SHA1 3ee2da4e4df361d35a61bb1bd67eef601ac9fa7a lib/File/Spec/VMS.pm
-SHA1 6df9bef58f0d93004610ccc824a1b0831fcbb3b9 lib/File/Spec/Win32.pm
+SHA1 aa5ba0b36fdb7334a5277dab9c679c4b69346568 lib/File/Spec.pm
+SHA1 c472ae16f1c7ab39ff4f7851fe8053afde279a56 lib/File/Spec/Cygwin.pm
+SHA1 9aed1a2d107df5820a9e7d961d4a9c52aecb660b lib/File/Spec/Epoc.pm
+SHA1 70cb76f83eb7944ab6469c07dfc1f470359114bb lib/File/Spec/Functions.pm
+SHA1 f2f10c40181b2c9f810c2c0a0b01fbf2fc008d0d lib/File/Spec/Mac.pm
+SHA1 3f3232bf3d8505a8a4dcb73039d97a8d791d0501 lib/File/Spec/OS2.pm
+SHA1 eec230f65cef1a12dba368dde813423a5cd704fc lib/File/Spec/Unix.pm
+SHA1 0b8d9acfde082d25a35e9c12de6753a4721046d6 lib/File/Spec/VMS.pm
+SHA1 287669726408f71cadc4c9d107e19c0f79a71dc3 lib/File/Spec/Win32.pm
 SHA1 985bfff322df915f46b27f12e84b5674db9ad8a5 ppport.h
 SHA1 77d045c1404fbe4c0910ed986b286f7b7b7d560d t/Functions.t
-SHA1 8cad7c6b3037360884d7d8c265253387e56a587a t/Spec.t
+SHA1 5d0d48593a68668273cb36f7aacb0e84facc24b7 t/Spec.t
 SHA1 88e00161e3c3108009dfba94ca64146badeceb7e t/crossplatform.t
 SHA1 9862a3f294bb4a7d372cea0df551afa0f7a58177 t/cwd.t
 SHA1 220a2b1de7f23aedf2f9daba53238c3d0b06db63 t/lib/Test/Builder.pm
@@ -47,7 +47,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.5 (Darwin)
 
-iD8DBQFHjrtygrvMBLfvlHYRAva0AKCNvbOLEBW+qG9rVOVhzNLq4tP8gQCgnem3
-GwaMAEHonRZ114sktKTfuQw=
-=/K8l
+iD8DBQFHsRXggrvMBLfvlHYRAnMBAJ9kfFAXhi5MFda9spM8GYAuPLnXNQCg4t5+
+H+umDGfx5/ePaDsIKwxZyQk=
+=3l7n
 -----END PGP SIGNATURE-----

Modified: trunk/libfile-spec-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/debian/changelog?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/debian/changelog (original)
+++ trunk/libfile-spec-perl/debian/changelog Thu Feb 14 21:40:47 2008
@@ -1,3 +1,9 @@
+libfile-spec-perl (3.2701-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Thu, 14 Feb 2008 22:38:36 +0100
+
 libfile-spec-perl (3.2700-1) unstable; urgency=low
 
   [ Martín Ferrari ]

Modified: trunk/libfile-spec-perl/lib/File/Spec.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec.pm Thu Feb 14 21:40:47 2008
@@ -3,7 +3,7 @@
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 $VERSION = eval $VERSION;
 
 my %module = (MacOS   => 'Mac',

Modified: trunk/libfile-spec-perl/lib/File/Spec/Cygwin.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/Cygwin.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/Cygwin.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/Cygwin.pm Thu Feb 14 21:40:47 2008
@@ -4,7 +4,7 @@
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 @ISA = qw(File::Spec::Unix);
 

Modified: trunk/libfile-spec-perl/lib/File/Spec/Epoc.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/Epoc.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/Epoc.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/Epoc.pm Thu Feb 14 21:40:47 2008
@@ -3,7 +3,7 @@
 use strict;
 use vars qw($VERSION @ISA);
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 require File::Spec::Unix;
 @ISA = qw(File::Spec::Unix);

Modified: trunk/libfile-spec-perl/lib/File/Spec/Functions.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/Functions.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/Functions.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/Functions.pm Thu Feb 14 21:40:47 2008
@@ -5,7 +5,7 @@
 
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 require Exporter;
 

Modified: trunk/libfile-spec-perl/lib/File/Spec/Mac.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/Mac.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/Mac.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/Mac.pm Thu Feb 14 21:40:47 2008
@@ -4,7 +4,7 @@
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 @ISA = qw(File::Spec::Unix);
 

Modified: trunk/libfile-spec-perl/lib/File/Spec/OS2.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/OS2.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/OS2.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/OS2.pm Thu Feb 14 21:40:47 2008
@@ -4,7 +4,7 @@
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 @ISA = qw(File::Spec::Unix);
 

Modified: trunk/libfile-spec-perl/lib/File/Spec/Unix.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/Unix.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/Unix.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/Unix.pm Thu Feb 14 21:40:47 2008
@@ -3,7 +3,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 =head1 NAME
 

Modified: trunk/libfile-spec-perl/lib/File/Spec/VMS.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/VMS.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/VMS.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/VMS.pm Thu Feb 14 21:40:47 2008
@@ -4,7 +4,7 @@
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 @ISA = qw(File::Spec::Unix);
 

Modified: trunk/libfile-spec-perl/lib/File/Spec/Win32.pm
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/lib/File/Spec/Win32.pm?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/lib/File/Spec/Win32.pm (original)
+++ trunk/libfile-spec-perl/lib/File/Spec/Win32.pm Thu Feb 14 21:40:47 2008
@@ -5,7 +5,7 @@
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.27';
+$VERSION = '3.2701';
 
 @ISA = qw(File::Spec::Unix);
 
@@ -133,6 +133,11 @@
     shift, return _canon_cat( "/", @_ )
 	if $_[0] eq "";
 
+    # Compatibility with File::Spec <= 3.26:
+    #     catfile('A:', 'foo') should return 'A:\foo'.
+    return _canon_cat( ($_[0].'\\'), @_[1..$#_] )
+        if $_[0] =~ m{^$DRIVE_RX\z}o;
+
     return _canon_cat( @_ );
 }
 
@@ -145,6 +150,11 @@
     	unless @_;
     shift, return _canon_cat( "/", @_ )
 	if $_[0] eq "";
+
+    # Compatibility with File::Spec <= 3.26:
+    #     catdir('A:', 'foo') should return 'A:\foo'.
+    return _canon_cat( ($_[0].'\\'), @_[1..$#_] )
+        if $_[0] =~ m{^$DRIVE_RX\z}o;
 
     return _canon_cat( @_ );
 }

Modified: trunk/libfile-spec-perl/t/Spec.t
URL: http://svn.debian.org/wsvn/trunk/libfile-spec-perl/t/Spec.t?rev=14933&op=diff
==============================================================================
--- trunk/libfile-spec-perl/t/Spec.t (original)
+++ trunk/libfile-spec-perl/t/Spec.t Thu Feb 14 21:40:47 2008
@@ -207,6 +207,7 @@
 [ "Win32->catdir('A:/')",                   'A:\\'               ],
 [ "Win32->catdir('\\', 'foo')",             '\\foo'              ],
 [ "Win32->catdir('','','..')",              '\\'                 ],
+[ "Win32->catdir('A:', 'foo')",             'A:\\foo'            ],
 
 [ "Win32->catfile('a','b','c')",        'a\\b\\c' ],
 [ "Win32->catfile('a','b','.\\c')",      'a\\b\\c'  ],
@@ -214,6 +215,7 @@
 [ "Win32->catfile('c')",                'c' ],
 [ "Win32->catfile('.\\c')",              'c' ],
 [ "Win32->catfile('a/..','../b')",       '..\\b' ],
+[ "Win32->catfile('A:', 'foo')",         'A:\\foo'            ],
 
 
 [ "Win32->canonpath('')",               ''                    ],

More information about the Pkg-perl-cvs-commits mailing list