This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vxs.inc: Move code to after declarations
authorKarl Williamson <public@khwilliamson.com>
Sat, 4 Jan 2014 17:43:22 +0000 (10:43 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Jan 2014 17:45:18 +0000 (10:45 -0700)
This macro, added in e1c774b6, is actual code, and needs to be
after the declarations, so that C89 compilers compile it.

vxs.inc

diff --git a/vxs.inc b/vxs.inc
index e297c38..2e4f409 100644 (file)
--- a/vxs.inc
+++ b/vxs.inc
@@ -171,12 +171,13 @@ VXS(version_new)
 {
     dVAR;
     dXSARGS;
-    PERL_UNUSED_VAR(cv);
     SV *vs = items ? ST(1) : &PL_sv_undef;
     SV *rv;
     const char * classname = "";
     STRLEN len;
     U32 flags = 0;
+    PERL_UNUSED_VAR(cv);
+
     SP -= items;
 
     if (items > 3 || items == 0)