opcode.pl hasn't generated files named *-old since 2008, so don't delete them.

Commit b6b9a09997c80269 removed the last vestiges of the code that generated
any files named *-old, but the code to clean them up remained. It serves no
purpose.

diff --git a/Cross/Makefile-cross-SH b/Cross/Makefile-cross-SH
index d899212..c25b144 100644 (file)
--- a/Cross/Makefile-cross-SH
+++ b/Cross/Makefile-cross-SH
@@ -963,7 +963,6 @@ _mopup:
        -rm -f perl.Addrs perl.Counts t/perl.Addrs t/perl.Counts *perl.xok
        -rm -f cygwin.c libperl*.def libperl*.dll cygperl*.dll *.exe.stackdump
        -rm -f perl$(EXE_EXT) miniperl$(EXE_EXT) $(LIBPERL) libperl.* microperl
-       -rm -f opcode.h-old opnames.h-old pp_proto.h-old
        -rm -f config.over
 
 # Do not 'make _tidy' directly.

diff --git a/Makefile.SH b/Makefile.SH
index 0f56227..07f25d2 100755 (executable)
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -1227,7 +1227,6 @@ _mopup:
        -rm -f perl.Addrs perl.Counts t/perl.Addrs t/perl.Counts *perl.xok
        -rm -f cygwin.c libperl*.def libperl*.dll cygperl*.dll *.exe.stackdump
        -rm -f $(PERL_EXE) $(MINIPERL_EXE) $(LIBPERL) libperl.* microperl
-       -rm -f opcode.h-old opnames.h-old pp_proto.h-old
        -rm -f config.arch config.over $(DTRACE_H) runtests
 
 # Do not 'make _tidy' directly.

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 553a3fa..d0a3e1b 100755 (executable)
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -485,12 +485,6 @@ safer_close($pp);
 
 rename_if_different $pp_proto_new, 'pp_proto.h';
 
-END {
-  foreach ('opcode.h', 'opnames.h', 'pp_proto.h') {
-    1 while unlink "$_-old";
-  }
-}
-
 ###########################################################################
 sub tab {
     my ($l, $t) = @_;