confess here, since this should never happen

[gitmo/Moose.git] / xs / Moose.xs

diff --git a/xs/Moose.xs b/xs/Moose.xs
index 986498b..8005d1a 100644 (file)
--- a/xs/Moose.xs
+++ b/xs/Moose.xs
@@ -96,13 +96,17 @@ STATIC int
 is_regexp (pTHX_ SV* sv) {
     SV* tmpsv;
 
-    if (SvMAGICAL(sv))
+    if (SvMAGICAL(sv)) {
         mg_get(sv);
+    }
+
     if (SvROK(sv) &&
-      (tmpsv = (SV*) SvRV(sv)) &&
-      SvTYPE(tmpsv) == SVt_PVMG &&
-      (mg_find(tmpsv, PERL_MAGIC_qr)))
+        (tmpsv = (SV*) SvRV(sv)) &&
+        SvTYPE(tmpsv) == SVt_PVMG &&
+        (mg_find(tmpsv, PERL_MAGIC_qr))) {
         return TRUE;
+    }
+
     return FALSE;
 }
 #endif
@@ -150,13 +154,14 @@ _export_is_flagged (SV *sv)
     OUTPUT:
         RETVAL
 
-MODULE = Moose  PACKAGE = Moose::Util::TypeConstraints::OptimizedConstraints
+MODULE = Moose  PACKAGE = Moose::Util::TypeConstraints::Builtins
 
 bool
-RegexpRef (SV *sv=NULL)
+_RegexpRef (SV *sv=NULL)
     INIT:
-        if (!items)
+        if (!items) {
             sv = DEFSV;
+        }
     CODE:
         RETVAL = SvRXOK(sv);
     OUTPUT: