diff options
Diffstat (limited to 'overload.pl')
| -rw-r--r-- | overload.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/overload.pl b/overload.pl index b9c5cc670e..a7dec35cd4 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 |