diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-24 09:01:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-24 09:01:40 +0000 |
| commit | 05b4157f6fee2ece5589511f927d566b229523f9 (patch) | |
| tree | 440ae27b2ba4044611c795c00fb5ba855662292f /pp_hot.c | |
| parent | ceda4f9bd200878375d13c58d9a0b95f9d15724b (diff) | |
| download | perl-05b4157f6fee2ece5589511f927d566b229523f9.tar.gz | |
fix RE brokenness on refs/overloaded things (from Ilya Zakharevich)
p4raw-id: //depot/perl@5931
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1021,7 +1021,8 @@ play_it_again: && !PL_sawampersand && ((rx->reganch & ROPT_NOSCAN) || !((rx->reganch & RE_INTUIT_TAIL) - && (r_flags & REXEC_SCREAM)))) + && (r_flags & REXEC_SCREAM))) + && !SvROK(TARG)) /* Cannot trust since INTUIT cannot guess ^ */ goto yup; } if (CALLREGEXEC(aTHX_ rx, s, strend, truebase, minmatch, TARG, NULL, r_flags)) |