]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
getdata() handles the stack itself, so make it return void and use PPCODE
authorVincent Pit <vince@profvince.com>
Thu, 12 Feb 2009 20:33:16 +0000 (21:33 +0100)
committerVincent Pit <vince@profvince.com>
Thu, 12 Feb 2009 20:33:16 +0000 (21:33 +0100)
Magic.xs

index 985b37ff1771e3fbc3984062f2963e105b138700..05c707edaf5608b0761364ed573a215e06fdf384 100644 (file)
--- 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;