Upgrade to Module::Load::Conditional 0.30
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 19 Jan 2009 16:08:54 +0000 (17:08 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 19 Jan 2009 16:08:54 +0000 (17:08 +0100)
lib/Module/Load/Conditional.pm
lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t

index c9fe15d..47bafe1 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
                         $FIND_VERSION $ERROR $CHECK_INC_HASH];
     use Exporter;
     @ISA            = qw[Exporter];
-    $VERSION        = '0.28_01';
+    $VERSION        = '0.30';
     $VERBOSE        = 0;
     $FIND_VERSION   = 1;
     $CHECK_INC_HASH = 0;
index 6972c1b..b5d78c7 100644 (file)
@@ -49,7 +49,17 @@ use_ok( 'Module::Load::Conditional' );
     ok( $rv->{dir},         q[  Found directory information] );
     
     {   my $dir = File::Spec->canonpath( $rv->{dir} );
-        my $dir_re = qr/^\Q$dir\E/i;
+
+        ### 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] );
     }