projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4f44ac6
)
typo in change#5408
author
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 1 Mar 2000 20:04:42 +0000
(20:04 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 1 Mar 2000 20:04:42 +0000
(20:04 +0000)
p4raw-link: @5408 on //depot/perl:
4f44ac69c2e18fd6c056482ac4532fefacf4cb50
p4raw-id: //depot/perl@5412
lib/ExtUtils/MM_Unix.pm
patch
|
blob
|
history
diff --git
a/lib/ExtUtils/MM_Unix.pm
b/lib/ExtUtils/MM_Unix.pm
index
decb8e1
..
4c8da33
100644
(file)
--- 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";
}