diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-09-23 20:22:32 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-24 09:43:29 +0000 |
| commit | 5cf6da5fd103f762f75b820f16d955ab1ba6b47b (patch) | |
| tree | eceb4c3b0baae26f59be41c26f7ff2165aaf5134 /lib/Cwd.pm | |
| parent | c7574462553caa93de43b87874d7657569d04353 (diff) | |
| download | perl-5cf6da5fd103f762f75b820f16d955ab1ba6b47b.tar.gz | |
local $/ = "\n";
Message-Id: <Pine.GSO.4.21.0109240021410.9178-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@12164
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index d7e60d6dc9..680fc3e56f 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -189,6 +189,7 @@ $pwd_cmd ||= 'pwd'; sub _backtick_pwd { my $cwd = `$pwd_cmd`; # `pwd` may fail e.g. if the disk is full + local $/ = "\n"; chomp($cwd) if defined $cwd; $cwd; } |