From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 25 Feb 2003 14:07:59 +0000 (+0000)
Subject: More variables for change #18776.
X-Git-Tag: accepted/trunk/20130322.191538~24735
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f702bf4a18c28d214aa0d9f3699ad336576ea7b2;p=platform%2Fupstream%2Fperl.git

More variables for change #18776.
p4raw-link: @18776 on //depot/perl: 83b43d9236da9ea6e31fd2df2474f4d7f7220a85

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

diff --git a/op.c b/op.c
index a89d29d..6a2cd37 100644
--- a/op.c
+++ b/op.c
@@ -2630,7 +2630,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl)
 		    if (curop->op_type == OP_GV) {
 			GV *gv = cGVOPx_gv(curop);
 			repl_has_vars = 1;
-			if (strchr("&`'123456789+-", *GvENAME(gv)))
+			if (strchr("&`'123456789+-\016\022", *GvENAME(gv)))
 			    break;
 		    }
 		    else if (curop->op_type == OP_RV2CV)