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;
-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');
@@ -24,7 +24,4 @@ system $command and die "`$command` failed, \$?=$?";
 
 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']);