"Don't repeat yourself" in regen/opcode.pl

1 files changed, 4 insertions, 5 deletions

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 9d314f21e0..4515424fb7 100755
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -487,11 +487,10 @@ sub gen_op_is_macro {
     }
 }
 
-print $oc "/* ex: set ro: */\n";
-print $on "/* ex: set ro: */\n";
-
-safer_close($oc);
-safer_close($on);
+foreach ($oc, $on) {
+    print $_ "/* ex: set ro: */\n";
+    safer_close($_);
+}
 
 rename_if_different $opcode_new, 'opcode.h';
 rename_if_different $opname_new, 'opnames.h';