From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 19 Jan 2009 16:08:54 +0000 (+0100)
Subject: Upgrade to Module::Load::Conditional 0.30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8a4246ccaa9e3e22992d50fe53e3d39cea09636;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Module::Load::Conditional 0.30
---

diff --git a/lib/Module/Load/Conditional.pm b/lib/Module/Load/Conditional.pm
index c9fe15d..47bafe1 100644
--- a/lib/Module/Load/Conditional.pm
+++ b/lib/Module/Load/Conditional.pm
@@ -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;
diff --git a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
index 6972c1b..b5d78c7 100644
--- a/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
+++ b/lib/Module/Load/Conditional/t/01_Module_Load_Conditional.t
@@ -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] );
     }