From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 21 Nov 2001 03:59:51 +0000 (+0000)
Subject: Integrate #13154 from macperl; Remove comments.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c90792d19bda45f3e74bba037b0c5537074a440;p=p5sagit%2Fp5-mst-13.2.git

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