This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest: Move PERL_UNUSED_ARG after decl
authorFather Chrysostomos <sprout@cpan.org>
Wed, 12 Oct 2011 12:44:05 +0000 (05:44 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 12 Oct 2011 12:44:32 +0000 (05:44 -0700)
ext/XS-APItest/APItest.xs

index d1d3fc0..640c0ec 100644 (file)
@@ -1065,8 +1065,8 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
 
 static AV *
 myget_linear_isa(pTHX_ HV *stash, U32 level) {
 
 static AV *
 myget_linear_isa(pTHX_ HV *stash, U32 level) {
-    PERL_UNUSED_ARG(level);
     GV **gvp = (GV **)hv_fetchs(stash, "ISA", 0);
     GV **gvp = (GV **)hv_fetchs(stash, "ISA", 0);
+    PERL_UNUSED_ARG(level);
     return gvp && *gvp && GvAV(*gvp)
         ? GvAV(*gvp)
         : (AV *)sv_2mortal((SV *)newAV());
     return gvp && *gvp && GvAV(*gvp)
         ? GvAV(*gvp)
         : (AV *)sv_2mortal((SV *)newAV());