From 7c90792d19bda45f3e74bba037b0c5537074a440 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 21 Nov 2001 03:59:51 +0000 Subject: [PATCH] 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..) --- lib/File/Spec/Mac.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 && -- 2.7.4