diff options
author | David Dyck <david.dyck@fluke.com> | 2000-11-20 03:43:40 -0800 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-20 22:27:44 +0000 |
commit | 2297871342e2615ecc059701f2c91658717cb808 (patch) | |
tree | 88bd982c6d0156215d316918af05a830209feb56 /lib | |
parent | 160cb4296c4a58b0681dec6838a7a7ad23e4b244 (diff) | |
download | perl-2297871342e2615ecc059701f2c91658717cb808.tar.gz |
[ID 20001120.010] typo in lib/Cwd.pm broke Cwd::chdir
Message-Id: <200011201943.LAA08451@dd.tc.fluke.com>
p4raw-id: //depot/perl@7785
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Cwd.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 1ed603b9f5..840e2a6078 100644 --- 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; |