In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/813720522fb5f54e39efcf9e4103d762ad005f51?hp=e8b9ce6006d3ecb2b02af04e4406ccb4294e728c>
- Log ----------------------------------------------------------------- commit 813720522fb5f54e39efcf9e4103d762ad005f51 Author: Jim Cromie <[email protected]> Date: Sat May 30 11:07:57 2009 -0600 overload.pl shouldnt update its output unconditionally fix overload.pl to use rename_if_different, imitating reentr.pl (including commenting safer_unlink rather than scrubbing it). Leave lib/overload/number.pm unconditionally generated, since it is not a dependency for make perl With this, "make regen perl; make regen perl" will recompile at most 1x. In turn, this improves utility of regen as an added default make target. ----------------------------------------------------------------------- Summary of changes: overload.pl | 8 +++++--- 1 files changed, 5 insertions(+), 3 deletions(-) diff --git a/overload.pl b/overload.pl index b9c5cc6..a7dec35 100644 --- a/overload.pl +++ b/overload.pl @@ -32,9 +32,9 @@ while (<DATA>) { push @names, $name; } -safer_unlink ('overload.h', 'overload.c', catfile(qw(lib overload numbers.pm))); -my $c = safer_open("overload.c"); -my $h = safer_open("overload.h"); +safer_unlink (catfile(qw(lib overload numbers.pm))); +my $c = safer_open("overload.c-new"); +my $h = safer_open("overload.h-new"); mkdir("lib/overload") unless -d catdir(qw(lib overload)); my $p = safer_open(catfile(qw(lib overload numbers.pm))); @@ -150,6 +150,8 @@ EOT safer_close($h); safer_close($c); safer_close($p); +rename_if_different("overload.c-new", "overload.c"); +rename_if_different("overload.h-new","overload.h"); __DATA__ # Fallback should be the first -- Perl5 Master Repository
