This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix change #28552: VC++ doesn't like code before declarations
[perl5.git] / ext / Hash / Util / FieldHash / FieldHash.xs
index faddb96..44ff3ce 100644 (file)
@@ -21,11 +21,12 @@ START_MY_CXT
 HV* HUF_get_ob_reg(void) {
     dSP;
     HV* ob_reg = NULL;
+    I32 items;
     ENTER;
     SAVETMPS;
 
     PUSHMARK(SP);
-    I32 items = call_pv(HUF_OB_REG, G_SCALAR|G_NOARGS);
+    items = call_pv(HUF_OB_REG, G_SCALAR|G_NOARGS);
     SPAGAIN;
 
     if (items == 1 && TOPs && SvROK(TOPs) && SvTYPE(SvRV(TOPs)) == SVt_PVHV) {