From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 10 Mar 2003 05:31:00 +0000 (+0000)
Subject: Remove the foo-old files.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24600adc4a7b8d0320458f5125c21c1645dc6bd4;p=p5sagit%2Fp5-mst-13.2.git

Remove the foo-old files.

p4raw-id: //depot/perl@18875
---

diff --git a/opcode.pl b/opcode.pl
index 4035cc6..c44ff3f 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) = @_;