[svn:Module-Build] r10125 - in Module-Build/trunk: . t

[kwilliams]

Author: kwilliams
Date: Sat Oct 27 11:15:48 2007
New Revision: 10125

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/destinations.t

Log:
VMS File::Spec fix

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Sat Oct 27 11:15:48 2007
@@ -1,5 +1,7 @@
 Revision history for Perl extension Module::Build.
 
+ - Fixed a File::Spec mal-ism in t/destinations.t [Craig A. Berry]
+
  - Exposed the internal ExtUtils::CBuilder object as part of our API,
    via the cbuilder() method. [Zefram]
 

Modified: Module-Build/trunk/t/destinations.t
==============================================================================
--- Module-Build/trunk/t/destinations.t (original)
+++ Module-Build/trunk/t/destinations.t Sat Oct 27 11:15:48 2007
@@ -16,7 +16,7 @@
 
 
 use Config;
-use File::Spec::Functions qw( catdir splitdir );
+use File::Spec::Functions qw( catdir splitdir splitpath );
 
 #########################
 
@@ -300,10 +300,12 @@
   my ($dir1, $dir2, $message) = @_;
 
   $dir1 =~ s{/$}{} if $^O eq 'cygwin'; # remove any trailing slash
-  my @dir1 = splitdir $dir1;
+  my (undef, $dirs1, undef) = splitpath $dir1;
+  my @dir1 = splitdir $dirs1;
 
   $dir2 =~ s{/$}{} if $^O eq 'cygwin'; # remove any trailing slash
-  my @dir2 = splitdir $dir2;
+  my (undef, $dirs2, undef) = splitpath $dir2;
+  my @dir2 = splitdir $dirs2;
 
   is $dir1[-1], $dir2[-1], $message;
 }