Regexps are now orange.

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

p4raw-id: //depot/perl@32740

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 3294dba7bd..668ddc465b 100644
--- a/util.c
+++ b/util.c
@@ -5921,7 +5921,7 @@ Perl_get_re_arg(pTHX_ SV *sv) {
             mg_get(sv);
         if (SvROK(sv) &&
             (tmpsv = (SV*)SvRV(sv)) &&            /* assign deliberate */
-            SvTYPE(tmpsv) == SVt_PVMG &&
+            SvTYPE(tmpsv) == SVt_ORANGE &&
             (mg = mg_find(tmpsv, PERL_MAGIC_qr))) /* assign deliberate */
         {
             return (REGEXP *)mg->mg_obj;