This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In B.xs, move the definition of PMOP_pmnext adjacent to its usage.
authorNicholas Clark <nick@ccl4.org>
Thu, 28 Oct 2010 15:36:56 +0000 (16:36 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 28 Oct 2010 15:36:56 +0000 (16:36 +0100)
Now it lives within the #ifdef guarding the conditional compilation of the only
code that uses it.

ext/B/B.xs

index d8b89e2..1208c2e 100644 (file)
@@ -977,7 +977,6 @@ LISTOP_children(o)
     OUTPUT:
         RETVAL
 
-#define PMOP_pmnext(o)         o->op_pmnext
 #ifdef USE_ITHREADS
 #define PMOP_pmoffset(o)       o->op_pmoffset
 #define PMOP_pmstashpv(o)      PmopSTASHPV(o);
@@ -1041,6 +1040,7 @@ PMOP_pmreplstart(o)
        B::PMOP         o
 
 #if PERL_VERSION < 9
+#define PMOP_pmnext(o)         o->op_pmnext
 
 B::PMOP
 PMOP_pmnext(o)