@@ -15,7 +15,7 @@ REQUIRE: 1.929
15
15
PROTOTYPES: DISABLE
16
16
17
17
BOOT:
18
- items = 0; /* avoid 'unused variable' warning */
18
+ PERL_UNUSED_VAR( items);
19
19
DBISTATE_INIT;
20
20
/* XXX this interface will change: */
21
21
DBI_IMP_SIZE("DBD::~DRIVER~::dr::imp_data_size", sizeof(imp_drh_t));
@@ -46,7 +46,7 @@ discon_all_(drh)
46
46
disconnect_all = 1
47
47
CODE:
48
48
D_imp_drh(drh);
49
- if (0) ix = ix; /* avoid unused variable warning */
49
+ PERL_UNUSED_VAR(ix);
50
50
ST(0) = dbd_discon_all(drh, imp_drh) ? &PL_sv_yes : &PL_sv_no;
51
51
52
52
#endif /* dbd_discon_all */
@@ -623,7 +623,7 @@ fetchrow_arrayref(sth)
623
623
CODE:
624
624
D_imp_sth(sth);
625
625
AV *av;
626
- if (0) ix = ix; /* avoid unused variable warning */
626
+ PERL_UNUSED_VAR(ix);
627
627
av = dbd_st_fetch(sth, imp_sth);
628
628
ST(0) = (av) ? sv_2mortal(newRV((SV *)av)) : &PL_sv_undef;
629
629
@@ -644,7 +644,7 @@ fetchrow_array(sth)
644
644
for(i=0; i < num_fields; ++i) {
645
645
PUSHs(AvARRAY(av)[i]);
646
646
}
647
- if (0) ix = ix; /* avoid unused variable warning */
647
+ PERL_UNUSED_VAR(ix);
648
648
}
649
649
650
650
@@ -731,7 +731,7 @@ FETCH_attrib(sth, keysv)
731
731
CODE:
732
732
D_imp_sth(sth);
733
733
SV *valuesv;
734
- if (0) ix = ix; /* avoid unused variable warning */
734
+ PERL_UNUSED_VAR(ix);
735
735
valuesv = dbd_st_FETCH_attrib(sth, imp_sth, keysv);
736
736
if (!valuesv)
737
737
valuesv = DBIc_DBISTATE(imp_sth)->get_attr(sth, keysv);
0 commit comments