From: Vincent Pit <vince@profvince.com>
Date: Thu, 12 Feb 2009 20:33:16 +0000 (+0100)
Subject: getdata() handles the stack itself, so make it return void and use PPCODE
X-Git-Tag: v0.31~14
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f5df0a922e74d0430a331be1f11e29498de0be6f;p=perl%2Fmodules%2FVariable-Magic.git

getdata() handles the stack itself, so make it return void and use PPCODE
---

diff --git a/Magic.xs b/Magic.xs
index 985b37f..05c707e 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1242,12 +1242,13 @@ CODE:
 OUTPUT:
  RETVAL
 
-SV *getdata(SV *sv, SV *wiz)
+void
+getdata(SV *sv, SV *wiz)
 PROTOTYPE: \[$@%&*]$
 PREINIT:
  SV *data;
  U16 sig;
-CODE:
+PPCODE:
  sig = vmg_wizard_sig(wiz);
  if (!sig)
   XSRETURN_UNDEF;