This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Picky compilers (e.g. vac on AIX 5.2) do not accept statements
[perl5.git] / ext / Devel / PPPort / PPPort.xs
index ed3c379..e0bfb31 100644 (file)
@@ -102,8 +102,9 @@ XS(XS_Devel__PPPort_dXSTARG)
 {
   dXSARGS;
   dXSTARG;
 {
   dXSARGS;
   dXSTARG;
+  IV iv;
   SP -= items;
   SP -= items;
-  IV iv = SvIV(ST(0)) + 1;
+  iv = SvIV(ST(0)) + 1;
   PUSHi(iv);
   XSRETURN(1);
 }
   PUSHi(iv);
   XSRETURN(1);
 }