3 # Regenerate (overwriting only if changed):
7 # from uconfig.h config_h.SH
9 # Accepts the standard regen_lib -q and -v args.
13 require 'regen/regen_lib.pl';
15 my ($uconfig_h, $uconfig_h_new, $config_h_sh)
16 = ('uconfig.h', 'uconfig.h-new', 'config_h.SH');
18 $ENV{CONFIG_SH} = 'uconfig.sh';
19 $ENV{CONFIG_H} = $uconfig_h_new;
20 safer_unlink($uconfig_h_new);
22 my $command = 'sh ./config_h.SH';
23 system $command and die "`$command` failed, \$?=$?";
25 my $fh = open_new($uconfig_h, '>>');
27 read_only_bottom_close_and_rename($fh, [$ENV{CONFIG_SH}, 'config_h.SH']);