[patch] 00_CPANPLUS-Internals-Utils.t version match fix

[John E. Malmberg]

Fix version regex to allow multiple digit versions.

-John
[EMAIL PROTECTED]
Personal Opinion Only

--- /rsync_root/perl/lib/CPANPLUS/t/00_CPANPLUS-Internals-Utils.t       Thu Sep 
 6 08:26:27 2007
+++ lib/CPANPLUS/t/00_CPANPLUS-Internals-Utils.t        Sat Sep  8 22:12:56 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'" );
@@ -73,7 +75,7 @@
 ### _perl_version tests ###
 {   my $version = $Class->_perl_version( perl => $^X );
     ok( $version,                       "Perl version found" );
-    like( $version, qr/\d.\d+.\d+/,     "   Looks like a proper version" );
+    like( $version, qr/\d+.\d+.\d+/,    "   Looks like a proper version" );
 }    
         
 ### _version_to_number tests ###