Remove the foo-old files.

p4raw-id: //depot/perl@18875

1 files changed, 6 insertions, 0 deletions

diff --git a/opcode.pl b/opcode.pl
index 4035cc6002..c44ff3f51d 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -336,6 +336,12 @@ foreach ('pp_proto.h', 'pp.sym') {
 safer_rename $pp_proto_new, 'pp_proto.h';
 safer_rename $pp_sym_new, 'pp.sym';
 
+END {
+  foreach ('opcode.h', 'opnames.h', 'pp_proto.h', 'pp.sym') {
+    1 while unlink "$_-old";
+  }
+}
+
 ###########################################################################
 sub tab {
     local($l, $t) = @_;