diff options
Diffstat (limited to 'lib/File/Spec/Mac.pm')
| -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 && |