This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
devel/devtools.pl: 'use warnings'
[perl5.git]
/
regen
/
uconfig_h.pl
diff --git
a/regen/uconfig_h.pl
b/regen/uconfig_h.pl
index
0e2feaf
..
1c3d1b2
100755
(executable)
--- a/
regen/uconfig_h.pl
+++ b/
regen/uconfig_h.pl
@@
-10,7
+10,7
@@
use strict;
use Config;
use strict;
use Config;
-require 'regen/regen_lib.pl';
+require '
./
regen/regen_lib.pl';
my ($uconfig_h, $uconfig_h_new, $config_h_sh)
= ('uconfig.h', 'uconfig.h-new', 'config_h.SH');
my ($uconfig_h, $uconfig_h_new, $config_h_sh)
= ('uconfig.h', 'uconfig.h-new', 'config_h.SH');
@@
-24,7
+24,4
@@
system $command and die "`$command` failed, \$?=$?";
my $fh = open_new($uconfig_h, '>>');
my $fh = open_new($uconfig_h, '>>');
-print $fh "\n", read_only_bottom([$ENV{CONFIG_SH}, 'config_h.SH']);
-
-safer_close($fh);
-rename_if_different($uconfig_h_new, $uconfig_h);
+read_only_bottom_close_and_rename($fh, [$ENV{CONFIG_SH}, 'config_h.SH']);