X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouseUtil.xs;fp=xs-src%2FMouseUtil.xs;h=8587b6457403fcac4f2cda16d9f1241077b66f25;hp=3c02d18c8e13e523d8f49dc34078e53d0cd8fb4d;hb=25ba356eb567d89ae015ad0789960b460c3ebf02;hpb=c7576321a8f564428999a4d9dac5abf923a110a7

diff --git a/xs-src/MouseUtil.xs b/xs-src/MouseUtil.xs
index 3c02d18..8587b64 100644
--- a/xs-src/MouseUtil.xs
+++ b/xs-src/MouseUtil.xs
@@ -350,7 +350,9 @@ CODE:
     }
     {
         dMY_CXT;
-        if(MY_CXT.metas) croak("Cannot set metaclass storage more than once");
+        if(MY_CXT.metas && ckWARN(WARN_REDEFINE)){
+            Perl_warner(aTHX_ packWARN(WARN_REDEFINE), "Metaclass storage more than once");
+        }
         MY_CXT.metas = metas;
         SvREFCNT_inc_simple_void_NN(metas);
     }