diff options
| author | Rick Delaney <rick@consumercontact.com> | 2004-10-31 17:40:40 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-04 09:26:56 +0000 |
| commit | 7fba1cd64145def991b6ae509bcdd709edcf43c1 (patch) | |
| tree | b5f53479439045e8c37aef6ba45b919440313d9a /pp.c | |
| parent | 1b1d102f0a25a469525d1d8639733ed50d8b39b6 (diff) | |
| download | perl-7fba1cd64145def991b6ae509bcdd709edcf43c1.tar.gz | |
[perl #3038] Re: $qr = qr/^a$/m; $x =~ $qr; fails
Message-ID: <20041101034040.GC1232@biff.bort.ca>
p4raw-id: //depot/perl@23471
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -4454,6 +4454,7 @@ PP(pp_split) I32 gimme = GIMME_V; I32 oldsave = PL_savestack_ix; I32 make_mortal = 1; + bool multiline = 0; MAGIC *mg = (MAGIC *) NULL; #ifdef DEBUGGING @@ -4515,9 +4516,8 @@ PP(pp_split) s++; } } - if ((int)(pm->op_pmflags & PMf_MULTILINE) != PL_multiline) { - SAVEINT(PL_multiline); - PL_multiline = pm->op_pmflags & PMf_MULTILINE; + if (pm->op_pmflags & PMf_MULTILINE) { + multiline = 1; } if (!limit) @@ -4599,7 +4599,7 @@ PP(pp_split) #ifndef lint while (s < strend && --limit && (m = fbm_instr((unsigned char*)s, (unsigned char*)strend, - csv, PL_multiline ? FBMrf_MULTILINE : 0)) ) + csv, multiline ? FBMrf_MULTILINE : 0)) ) #endif { dstr = NEWSV(31, m-s); |