[tapx-dev] [commit][251] catdir -> catpath = more correct

[andy at hexten.net]

Revision: 251
Author:   andy
Date:     2007-08-17 17:08:35 +0100 (Fri, 17 Aug 2007)

Log Message:
-----------
catdir -> catpath = more correct

Modified Paths:
--------------
    trunk/lib/TAP/Harness.pm

Modified: trunk/lib/TAP/Harness.pm
===================================================================
--- trunk/lib/TAP/Harness.pm	2007-08-16 18:56:51 UTC (rev 250)
+++ trunk/lib/TAP/Harness.pm	2007-08-17 16:08:35 UTC (rev 251)
@@ -797,8 +797,8 @@
         my $spool = File::Spec->catfile( $spool_dir, $test );
 
         # Make the directory
-        my ( $vol, $dir, $file ) = File::Spec->splitpath($spool);
-        my $path = File::Spec->catdir( $vol, $dir );
+        my ( $vol, $dir, undef ) = File::Spec->splitpath($spool);
+        my $path = File::Spec->catpath( $vol, $dir, '' );
         eval { mkpath($path) };
         $self->_croak($@) if $@;