diff options
| -rw-r--r-- | lib/Cwd.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 680fc3e56f..d86527f9e0 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -188,8 +188,9 @@ $pwd_cmd ||= 'pwd'; # The 'natural and safe form' for UNIX (pwd may be setuid root) sub _backtick_pwd { my $cwd = `$pwd_cmd`; - # `pwd` may fail e.g. if the disk is full + # Belt-and-suspenders in case someone said "undef $/". local $/ = "\n"; + # `pwd` may fail e.g. if the disk is full chomp($cwd) if defined $cwd; $cwd; } |