diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-07 18:23:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-07 18:23:16 +0000 |
| commit | 4fabb5965cb13ba2085b455bf751c89110c43659 (patch) | |
| tree | c4832b84f0959a8c3e08363d90592f465f6dc0a5 /lib/File/Spec | |
| parent | 65346fe1a9b07a3de1b94fead7e905d3a8dad1d5 (diff) | |
| download | perl-4fabb5965cb13ba2085b455bf751c89110c43659.tar.gz | |
cygwin update (from Eric Fifer <EFifer@sanwaint.com>)
p4raw-id: //depot/perl@4769
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 87ad643fe2..85df2c2d3b 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 unless($^O =~ /cygwin/); # xx////xx -> xx/xx + $path =~ s|/+|/|g unless($^O eq 'cygwin'); # xx////xx -> xx/xx $path =~ s|(/\.)+/|/|g; # xx/././xx -> xx/xx $path =~ s|^(\./)+|| unless $path eq "./"; # ./xx -> xx $path =~ s|^/(\.\./)+|/|; # /../../xx -> xx |