diff options
| author | Fifer, Eric <EFifer@sanwaint.com> | 1999-07-30 19:31:48 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-01 20:49:06 +0000 |
| commit | 6dce6b70b85ef184fc8b4432d2436d1be5f0b117 (patch) | |
| tree | da1ad9fa7dd8997755758f82d4b17acaac3739c9 /lib/File/Spec | |
| parent | 3ed82cfc5b0f2ba85118bedae2541af7b2b2c647 (diff) | |
| download | perl-6dce6b70b85ef184fc8b4432d2436d1be5f0b117.tar.gz | |
cygwin update
Message-Id: <71E287AB0D94D111BBD600600849EC8185EE06@POST>
Subject: [ID 19990730.003] PATCH] perl5.005_58 cygwin port
p4raw-id: //depot/perl@3855
Diffstat (limited to 'lib/File/Spec')
| -rw-r--r-- | lib/File/Spec/Unix.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm index e33ecb7b36..87ad643fe2 100644 --- a/lib/File/Spec/Unix.pm +++ b/lib/File/Spec/Unix.pm @@ -41,7 +41,7 @@ ricochet (some scripts depend on it). sub canonpath { my ($self,$path,$reduce_ricochet) = @_; - $path =~ s|/+|/|g; # xx////xx -> xx/xx + $path =~ s|/+|/|g unless($^O =~ /cygwin/); # xx////xx -> xx/xx $path =~ s|(/\.)+/|/|g; # xx/././xx -> xx/xx $path =~ s|^(\./)+|| unless $path eq "./"; # ./xx -> xx $path =~ s|^/(\.\./)+|/|; # /../../xx -> xx |