X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=0bd0bfd2ba1d45668266d373b0d04f0c4f884abd;hb=b9df7824d4619174e28f9b1b5856c4a228d9cc7b;hp=ab8a1c540955ab283216b263df549879b736c688;hpb=c2588a284fafc441108ad2505f786dfa74de4d70;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index ab8a1c5..0bd0bfd 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1408,10 +1408,11 @@ OUTPUT:
 
 SV *getsig(SV *wiz)
 PROTOTYPE: $
+PREINIT:
+ U16 sig;
 CODE:
- if (!SvROK(wiz))
-  croak(vmg_invalid_wiz);
- RETVAL = newSVuv(SV2MGWIZ(SvRV(wiz))->sig);
+ sig = vmg_wizard_sig(wiz);
+ RETVAL = newSVuv(sig);
 OUTPUT:
  RETVAL