[patch@31788] 00_CPANPLUS-Internals-Utils.t fix for VMS

[John E. Malmberg]

Test 4 needs to be case insensitive on VMS.

-John
[EMAIL PROTECTED]
Personal Opinion Only

--- /rsync_root/perl/lib/CPANPLUS/t/00_CPANPLUS-Internals-Utils.t       Tue Apr 
10 02:43:20 2007
+++ lib/CPANPLUS/t/00_CPANPLUS-Internals-Utils.t        Tue Sep  4 22:38:18 2007
@@ -34,7 +34,9 @@
 
 ### test _chdir ###
 {   ok( $Class->_chdir( dir => $Dir),   "Chdir to '$Dir'" );    
-    is( File::Spec->rel2abs(cwd()), 
File::Spec->rel2abs(File::Spec->catdir($Cwd,$Dir)),
+
+    my $new_dir = File::Spec->rel2abs(File::Spec->catdir($Cwd,$Dir));
+    like( File::Spec->rel2abs(cwd()), "/\Q$new_dir\E/i",
                                         "   Cwd() is '$Dir'");  
     ok( $Class->_chdir( dir => $Cwd),   "Chdir back to '$Cwd'" );
     is( File::Spec->rel2abs(cwd()),$Cwd,"   Cwd() is '$Cwd'" );