This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
opcode.pl hasn't generated files named *-old since 2008, so don't delete them.
authorNicholas Clark <nick@ccl4.org>
Sun, 23 Jan 2011 07:59:25 +0000 (07:59 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 23 Jan 2011 07:59:25 +0000 (07:59 +0000)
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.

Cross/Makefile-cross-SH
Makefile.SH
regen/opcode.pl

index d899212..c25b144 100644 (file)
@@ -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.
index 0f56227..07f25d2 100755 (executable)
@@ -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.
index 553a3fa..d0a3e1b 100755 (executable)
@@ -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) = @_;