X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/b2de6a21dcc23a8be547019830dfeac642d34c3f..f8952f9c0d30f65af1114a6384b97ad7770dce81:/ext/Devel/PPPort/PPPort.xs

diff --git a/ext/Devel/PPPort/PPPort.xs b/ext/Devel/PPPort/PPPort.xs
index ed3c379..e0bfb31 100644
--- a/ext/Devel/PPPort/PPPort.xs
+++ b/ext/Devel/PPPort/PPPort.xs
@@ -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);
 }