From: Chip Salzenberg <chip@atlantic.net>
Date: Tue, 28 Jan 1997 11:11:49 +0000 (+1200)
Subject: Don't warn on C<$\ = undef>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3c19b7bc9a0745aef2775aa2cf9897de45593c4;p=p5sagit%2Fp5-mst-13.2.git

Don't warn on C<$\ = undef>
---

diff --git a/mg.c b/mg.c
index 1359c91..c42667f 100644
--- a/mg.c
+++ b/mg.c
@@ -1326,7 +1326,12 @@ MAGIC* mg;
     case '\\':
 	if (ors)
 	    Safefree(ors);
-	ors = savepv(SvPV(sv,orslen));
+	if (SvOK(sv) || SvGMAGICAL(sv))
+	    ors = savepv(SvPV(sv,orslen));
+	else {
+	    ors = Nullch;
+	    orslen = 0;
+	}
 	break;
     case ',':
 	if (ofs)