Integrate #13154 from macperl; Remove comments.
Jarkko Hietaniemi [Wed, 21 Nov 2001 03:59:51 +0000 (03:59 +0000)]
p4raw-id: //depot/perl@13158
p4raw-integrated: from //depot/maint-5.6/macperl@13157 'copy in'
lib/File/Spec/Mac.pm (@12583..)

lib/File/Spec/Mac.pm

index c695dd2..c3ae7af 100644 (file)
@@ -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 &&