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_hot.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_hot.c')
| -rw-r--r-- | pp_hot.c | 10 |
1 files changed, 1 insertions, 9 deletions
@@ -1274,11 +1274,6 @@ PP(pp_match) if (SvSCREAM(TARG)) r_flags |= REXEC_SCREAM; - if ((int)(pm->op_pmflags & PMf_MULTILINE) != PL_multiline) { - SAVEINT(PL_multiline); - PL_multiline = pm->op_pmflags & PMf_MULTILINE; - } - play_it_again: if (global && rx->startp[0] != -1) { t = s = rx->endp[0] + truebase; @@ -2056,10 +2051,7 @@ PP(pp_subst) ? REXEC_COPY_STR : 0; if (SvSCREAM(TARG)) r_flags |= REXEC_SCREAM; - if ((int)(pm->op_pmflags & PMf_MULTILINE) != PL_multiline) { - SAVEINT(PL_multiline); - PL_multiline = pm->op_pmflags & PMf_MULTILINE; - } + orig = m = s; if (rx->reganch & RE_USE_INTUIT) { PL_bostr = orig; |