diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-23 07:59:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-23 07:59:25 +0000 |
| commit | c73c6da1065241a5be68ecb08e80fff00318c361 (patch) | |
| tree | c37208cf0006a657f40754275e1fb42ca876d2b4 | |
| parent | 60fee4d1101d4805dfd32099980441e9d9982565 (diff) | |
| download | perl-c73c6da1065241a5be68ecb08e80fff00318c361.tar.gz | |
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.
| -rw-r--r-- | Cross/Makefile-cross-SH | 1 | ||||
| -rwxr-xr-x | Makefile.SH | 1 | ||||
| -rwxr-xr-x | regen/opcode.pl | 6 |
3 files changed, 0 insertions, 8 deletions
diff --git a/Cross/Makefile-cross-SH b/Cross/Makefile-cross-SH index d8992121e2..c25b144498 100644 --- 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 0f56227b2c..07f25d2b0a 100755 --- 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 553a3faff2..d0a3e1b90f 100755 --- 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) = @_; |