r29898 - in /branches/upstream/libmodule-load-conditional-perl/current: CHANGES META.yml lib/Module/Load/Conditional.pm t/01_Module_Load_Conditional.t

rmayorga at users.alioth.debian.org rmayorga at users.alioth.debian.org
Wed Jan 21 00:19:32 UTC 2009


Author: rmayorga
Date: Wed Jan 21 00:19:29 2009
New Revision: 29898

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29898
Log:
[svn-upgrade] Integrating new upstream version, libmodule-load-conditional-perl (0.30)

Modified:
    branches/upstream/libmodule-load-conditional-perl/current/CHANGES
    branches/upstream/libmodule-load-conditional-perl/current/META.yml
    branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm
    branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t

Modified: branches/upstream/libmodule-load-conditional-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/CHANGES?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/CHANGES (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/CHANGES Wed Jan 21 00:19:29 2009
@@ -1,3 +1,11 @@
+Changes for 0.30    Mon Jan 19 16:25:55 CET 2009
+=================================================
+* This is a test-suite fix release only. Users of
+  0.28 need not upgrade.
+* Address #42140: 01_Module_Load_Conditional.t support 
+  VMS in UNIX compatible mode.
+* Address #42282: test fail on MSWin32  
+
 Changes for 0.28    Wed Dec 17 13:54:17 CET 2008
 =================================================
 * Add the directory the package was found in to the

Modified: branches/upstream/libmodule-load-conditional-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/META.yml?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/META.yml (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/META.yml Wed Jan 21 00:19:29 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Module-Load-Conditional
-version:            0.28
+version:            0.30
 abstract:           Looking up module information / loading at runtime
 author:
     - Jos Boumans <kane[at]cpan.org>

Modified: branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/lib/Module/Load/Conditional.pm Wed Jan 21 00:19:29 2009
@@ -18,7 +18,7 @@
                         $FIND_VERSION $ERROR $CHECK_INC_HASH];
     use Exporter;
     @ISA            = qw[Exporter];
-    $VERSION        = '0.28';
+    $VERSION        = '0.30';
     $VERBOSE        = 0;
     $FIND_VERSION   = 1;
     $CHECK_INC_HASH = 0;

Modified: branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t?rev=29898&op=diff
==============================================================================
--- branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t (original)
+++ branches/upstream/libmodule-load-conditional-perl/current/t/01_Module_Load_Conditional.t Wed Jan 21 00:19:29 2009
@@ -48,8 +48,19 @@
                             q[  Found proper version] );
     ok( $rv->{dir},         q[  Found directory information] );
     
-    {   my $dir_re = qr/^$rv->{dir}/i;
-        like( $rv->{file}, $dir_re,
+    {   my $dir = File::Spec->canonpath( $rv->{dir} );
+
+        ### special rules apply on VMS, as always...
+        if (ON_VMS) {
+            ### Need path syntax for VMS compares.
+            $dir = VMS::Filespec::pathify($dir);
+            ### Remove the trailing VMS specific directory delimiter
+            $dir =~ s/\]//;
+        }    
+    
+        ### quote for Win32 paths, use | to avoid slash confusion
+        my $dir_re = qr|^\Q$dir\E|i;
+        like( File::Spec->canonpath( $rv->{file} ), $dir_re,
                             q[      Dir subset of file path] );
     }
 




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