X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=537f1e2e24dd19cc5731f4301bff1e9a76c12cd2;hb=92c40234ffc0926116f49aefc39ce87103105bd2;hp=183bfbd7521bfe193b2085d9b299315df5db4ef8;hpb=6c0a2afbec3921761d384fdebacba3f0407cb721;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 183bfbd..537f1e2 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1414,15 +1414,12 @@ PROTOTYPE: \[$@%&*]$@
 PREINIT:
  SV **args = NULL;
  I32 i = 0;
- SV *ret;
 CODE:
  if (items > 2) {
   i = items - 2;
   args = &ST(2);
  }
- ret = newSVuv(vmg_cast(SvRV(sv), vmg_wizard_validate(wiz), args, i));
- SvREFCNT_dec(args);
- RETVAL = ret;
+ RETVAL = newSVuv(vmg_cast(SvRV(sv), vmg_wizard_validate(wiz), args, i));
 OUTPUT:
  RETVAL