This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove extraneous semicolon from OP_PRIVATE_ONCE.
authorCraig A. Berry <craigberry@mac.com>
Thu, 3 Jun 2010 12:44:17 +0000 (07:44 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 3 Jun 2010 12:52:18 +0000 (07:52 -0500)
Thus silencing compiler noise like:

OP_PRIVATE_ONCE(op_aassign, OPpASSIGN_COMMON, ",COMMON");
........................................................^
%CC-I-EXTRASEMI, Extraneous semicolon.
at line number 846 in file D0:[craig.blead]dump.c;1

dump.c

diff --git a/dump.c b/dump.c
index e18e9b6..169242a 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -841,7 +841,7 @@ const struct flag_to_name op_exit_names[] = {
 #define OP_PRIVATE_ONCE(op, flag, name) \
     const struct flag_to_name CAT2(op, _names)[] = {   \
        {(flag), (name)} \
-    };
+    }
 
 OP_PRIVATE_ONCE(op_aassign, OPpASSIGN_COMMON, ",COMMON");
 OP_PRIVATE_ONCE(op_leavesub, OPpREFCOUNTED, ",REFCOUNTED");