From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 7 Jul 1999 00:27:10 +0000 (+0000)
Subject: make diagnostic on C<my $^I> etc., more readable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4d0567e9fc5bde6a4a00063c85389a6cca2fc60;p=p5sagit%2Fp5-mst-13.2.git

make diagnostic on C<my $^I> etc., more readable

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

diff --git a/op.c b/op.c
index 44700dd..e1d6976 100644
--- a/op.c
+++ b/op.c
@@ -142,7 +142,7 @@ Perl_pad_allocmy(pTHX_ char *name)
 	(PL_hints & HINT_UTF8 && (name[1] & 0xc0) == 0xc0) ||
 	name[1] == '_' && (int)strlen(name) > 2))
     {
-	if (!isPRINT(name[1])) {
+	if (!isPRINT(name[1]) || strchr("\t\n\r\f", name[1])) {
 	    /* 1999-02-27 mjd@plover.com */
 	    char *p;
 	    p = strchr(name, '\0');