From: Jeff Pinyan <japhy@pobox.com>
Date: Mon, 24 Sep 2001 00:22:32 +0000 (-0400)
Subject: local $/ = "\n";
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cf6da5fd103f762f75b820f16d955ab1ba6b47b;p=p5sagit%2Fp5-mst-13.2.git

local $/ = "\n";
Message-Id: <Pine.GSO.4.21.0109240021410.9178-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@12164
---

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index d7e60d6..680fc3e 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;
 }