[MacPerl-Porters] [PATCH] File::Spec::Mac

Chris,

just a nit. The comments were meant for debugging. Applied against the most recent version of Mac.pm found in the CVS repository.


diff -ru :perl:lib:File:Spec:Mac.pm.orig :perl:lib:File:Spec:Mac.pm
--- :perl:lib:File:Spec:Mac.pm.orig	Sat Oct 27 20:02:54 2001
+++ :perl:lib:File:Spec:Mac.pm	Sun Oct 28 14:01:29 2001
@@ -667,8 +667,8 @@
     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 &&


Best regards,

--Thomas



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com