From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Fri, 19 Jun 1998 21:04:54 +0000 (-0400)
Subject: print study /re/ broken
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a21df721bd2b1f6f6000b965978d9b9377c04298;p=p5sagit%2Fp5-mst-13.2.git

print study /re/ broken

	Message-Id: <199806200104.VAA11343@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1178
---

diff --git a/sv.c b/sv.c
index 245c4a5..ee5d34f 100644
--- 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;