Integrate #13154 from macperl; Remove comments.

p4raw-id: //depot/perl@13158
p4raw-integrated: from //depot/maint-5.6/macperl@13157 'copy in'
	lib/File/Spec/Mac.pm (@12583..)

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 &&