diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 20:04:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 20:04:42 +0000 |
| commit | ccb170633023ae0e007caf5cfa96ad76d3aae429 (patch) | |
| tree | 637f8955ea34f33d7bb3748e3bccc066fbce176d /lib | |
| parent | 4f44ac69c2e18fd6c056482ac4532fefacf4cb50 (diff) | |
| download | perl-ccb170633023ae0e007caf5cfa96ad76d3aae429.tar.gz | |
typo in change#5408
p4raw-link: @5408 on //depot/perl: 4f44ac69c2e18fd6c056482ac4532fefacf4cb50
p4raw-id: //depot/perl@5412
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index decb8e1820..4c8da339b8 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -85,7 +85,7 @@ sub canonpath { } $path =~ s|(?<=[^/])/+|/|g ; # xx////xx -> xx/xx $path =~ s|(/\.)+/|/|g ; # xx/././xx -> xx/xx - $path =~ s|^(\./)+|| unless $path eq "./"s; # ./xx -> xx + $path =~ s|^(\./)+||s unless $path eq "./"; # ./xx -> xx $path =~ s|(?<=[^/])/\z|| ; # xx/ -> xx "$node$path"; } |