This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B.xs: fix syntax err in PERL_VERSION < 17
authorDavid Mitchell <davem@iabyn.com>
Fri, 19 Sep 2014 17:28:09 +0000 (18:28 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 19 Sep 2014 17:28:09 +0000 (18:28 +0100)
The blead version of B.xs obviously hasn't been able to be compiled
on old perls for a while. This fixes one such syntax error, blind.

ext/B/B.xs

index 54e4c10..17614cb 100644 (file)
@@ -676,7 +676,7 @@ struct OP_methods {
 #if PERL_VERSION >= 17
   { STR_WITH_LEN("code_list"),OPp,   STRUCT_OFFSET(struct pmop, op_code_list),},/*13*/
 #else
-  { STR_WITH_LEN("code_list"),op_offset_special, 0,
+  { STR_WITH_LEN("code_list"),op_offset_special, 0,                         }, /*13*/
 #endif
   { STR_WITH_LEN("sv"),      SVp,     STRUCT_OFFSET(struct svop, op_sv),    },/*14*/
   { STR_WITH_LEN("gv"),      SVp,     STRUCT_OFFSET(struct svop, op_sv),    },/*15*/