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
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 2 Feb 2005 12:49:46 +0000 (12:49 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 2 Feb 2005 12:49:46 +0000 (12:49 +0000)
between declarations

p4raw-id: //depot/perl@23919

ext/Devel/PPPort/PPPort.xs

index ed3c379..e0bfb31 100644 (file)
@@ -102,8 +102,9 @@ XS(XS_Devel__PPPort_dXSTARG)
 {
   dXSARGS;
   dXSTARG;
+  IV iv;
   SP -= items;
-  IV iv = SvIV(ST(0)) + 1;
+  iv = SvIV(ST(0)) + 1;
   PUSHi(iv);
   XSRETURN(1);
 }