Regexps are now orange.

(Correct a comparison of $] with 5.011 in B.pm)

p4raw-id: //depot/perl@32740

1 files changed, 3 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index a02a0c037a..634844bde0 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3730,9 +3730,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
 			re = CALLREGCOMP(ret, pm_flags);
 			if (!(SvFLAGS(ret)
 			      & (SVs_TEMP | SVs_PADTMP | SVf_READONLY
-				| SVs_GMG)))
+				 | SVs_GMG))) {
+			    SvUPGRADE(ret, SVt_ORANGE);
 			    sv_magic(ret,(SV*)ReREFCNT_inc(re),
 					PERL_MAGIC_qr,0,0);
+			}
 			PL_regsize = osize;
 		    }
 		}