diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-23 22:16:39 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-26 01:36:49 +0000 |
| commit | 511e412a518b56e208f9722521f9ee9729444590 (patch) | |
| tree | 45806f716e73d5c78d51d8ebfa55b86f394c9f0a /sv.c | |
| parent | f21315cc10050bf1c51ab8fe821be27d1ba4b7d1 (diff) | |
| download | perl-511e412a518b56e208f9722521f9ee9729444590.tar.gz | |
Re: [perl #20683] [fix] Better Patch
Message-ID: <20030223181639.GA18713@ratsnest.hole>
p4raw-id: //depot/perl@18782
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2966,7 +2966,7 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags) case SVt_PVMG: if ( ((SvFLAGS(sv) & (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) - == (SVs_OBJECT|SVs_RMG)) + == (SVs_OBJECT|SVs_SMG)) && (mg = mg_find(sv, PERL_MAGIC_qr))) { regexp *re = (regexp *)mg->mg_obj; |