Cwd::_backtick_pwd does not check return value

Message-ID: <Pine.LNX.4.21.0008151547560.1223-100000@lapaki.jach.hawaii.edu>

p4raw-id: //depot/perl@6651

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 9a92829..ecd0882 100644 (file)
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -81,8 +81,9 @@ require Exporter;
 # The 'natural and safe form' for UNIX (pwd may be setuid root)
 
 sub _backtick_pwd {
-    my $cwd;
-    chop($cwd = `pwd`);
+    my $cwd = `pwd`;
+    # `pwd` may fail e.g. if the disk is full
+    chomp($cwd) if defined $cwd;
     $cwd;
 }