From 6dbddf4ab62a19c078acf4f1ee507ba0174e232c Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 12 Oct 2011 05:44:05 -0700 Subject: [PATCH] APItest: Move PERL_UNUSED_ARG after decl --- ext/XS-APItest/APItest.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index d1d3fc0..640c0ec 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -1065,8 +1065,8 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen) static AV * myget_linear_isa(pTHX_ HV *stash, U32 level) { - PERL_UNUSED_ARG(level); GV **gvp = (GV **)hv_fetchs(stash, "ISA", 0); + PERL_UNUSED_ARG(level); return gvp && *gvp && GvAV(*gvp) ? GvAV(*gvp) : (AV *)sv_2mortal((SV *)newAV()); -- 1.8.3.1