develooper Front page | perl.perl5.porters | Postings from February 2003

Re: [perl #20682] [fix] @- array not visible in s///

Thread Previous | Thread Next
From:
Enache Adrian
Date:
February 21, 2003 15:09
Subject:
Re: [perl #20682] [fix] @- array not visible in s///
Message ID:
20030221230936.GB18878@ratsnest.hole
On Fri, Feb 21, 2003 at 09:44:28PM +0000, Ton Hospel wrote:
> mm, shouldn't ^R and ^N be in that list too then ?

Modified patch to include $^R & $^N:
-------------------------------------------------------------------------
--- /arc/perl-current/op.c	2003-02-16 17:05:00.000000000 +0200
+++ perl-current/op.c	2003-02-22 01:04:56.000000000 +0200
@@ -2634,7 +2634,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP
 		    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)
--------------------------------------------------------------------------

Regards

Adi

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About