projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1b979e0)
print study /re/ broken
authorIlya Zakharevich <ilya@math.berkeley.edu>
Fri, 19 Jun 1998 21:04:54 +0000 (17:04 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 21 Jun 1998 07:07:16 +0000 (07:07 +0000)
Message-Id: <199806200104.VAA11343@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1178

sv.c patch | blob | history

diff --git a/sv.c b/sv.c
index 245c4a5..ee5d34f 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1702,7 +1702,7 @@ sv_2pv(register SV *sv, STRLEN *lp)
                case SVt_PVMG:
                    if ( ((SvFLAGS(sv) &
                           (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) 
-                         == (SVs_OBJECT|SVs_RMG))
+                         == (SVs_OBJECT|SVs_RMG|SVs_SMG))
                         && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp")
                         && (mg = mg_find(sv, 'r'))) {
                        regexp *re = (regexp *)mg->mg_obj;
Domain: System / Base;