diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-21 03:59:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-21 03:59:51 +0000 |
| commit | 7c90792d19bda45f3e74bba037b0c5537074a440 (patch) | |
| tree | bdba6d9b821e82e8e038944e54a37aa40d3b5ac3 /lib/File/Spec | |
| parent | fed960501a45bfb552673232b7b9909472e5cbbd (diff) | |
| download | perl-7c90792d19bda45f3e74bba037b0c5537074a440.tar.gz | |
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..)
Diffstat (limited to 'lib/File/Spec')
| -rw-r--r-- | lib/File/Spec/Mac.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm index c695dd21b0..c3ae7aff6b 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 && |