From faf82a0b75a45f1e4dbb7ad8cecdfaf9a30a643d Mon Sep 17 00:00:00 2001 From: "Adrian M. Enache" Date: Sun, 23 Feb 2003 22:16:39 +0200 Subject: Re: [perl #20683] [fix] Better Patch Message-ID: <20030223181639.GA18713@ratsnest.hole> p4raw-id: //depot/perl@18782 --- sv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index b132a1e6f3..d9d0e6fab4 100644 --- a/sv.c +++ b/sv.c @@ -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; -- cgit v1.2.1