diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-10-12 05:44:05 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-12 05:44:32 -0700 |
commit | 6dbddf4ab62a19c078acf4f1ee507ba0174e232c (patch) | |
tree | 3c90a811822dfee6dc2cb4d18c8e6c0c56b4cd50 /ext/XS-APItest/APItest.xs | |
parent | 915f531bebf29a3e56e60e075eaac0f66cb59d44 (diff) | |
download | perl-6dbddf4ab62a19c078acf4f1ee507ba0174e232c.tar.gz |
APItest: Move PERL_UNUSED_ARG after decl
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
-rw-r--r-- | ext/XS-APItest/APItest.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index d1d3fc07ed..640c0ec30f 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()); |