Re: File/Spec/t/rel2abs2rel2whatever broken again

[p5sagit/p5-mst-13.2.git] / lib / File / Spec / Mac.pm

diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm
index c695dd2..c3ae7af 100644 (file)
--- a/lib/File/Spec/Mac.pm
+++ b/lib/File/Spec/Mac.pm
@@ -667,8 +667,8 @@ sub abs2rel {
     my $base_dirs = ($self->splitpath( $base ))[1] ;
 
     # Now, remove all leading components that are the same
-    my @pathchunks = $self->splitdir( $path_dirs ); # expected: ('')
-    my @basechunks = $self->splitdir( $base_dirs ); # expected: (d1, d2)
+    my @pathchunks = $self->splitdir( $path_dirs );
+    my @basechunks = $self->splitdir( $base_dirs );
        
     while ( @pathchunks &&
            @basechunks &&