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:
160cb42
)
[ID 20001120.010] typo in lib/Cwd.pm broke Cwd::chdir
author
David Dyck
<david.dyck@fluke.com>
Mon, 20 Nov 2000 11:43:40 +0000
(
03:43
-0800)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 20 Nov 2000 22:27:44 +0000
(22:27 +0000)
Message-Id: <
200011201943
.LAA08451@dd.tc.fluke.com>
p4raw-id: //depot/perl@7785
lib/Cwd.pm
patch
|
blob
|
history
diff --git
a/lib/Cwd.pm
b/lib/Cwd.pm
index
1ed603b
..
840e2a6
100644
(file)
--- a/
lib/Cwd.pm
+++ b/
lib/Cwd.pm
@@
-188,7
+188,7
@@
sub chdir_init {
}
sub chdir {
- my $newdir = @
?
? shift : ''; # allow for no arg (chdir to HOME dir)
+ my $newdir = @
_
? shift : ''; # allow for no arg (chdir to HOME dir)
$newdir =~ s|///*|/|g unless $^O eq 'MSWin32';
chdir_init() unless $chdir_init;
return 0 unless CORE::chdir $newdir;