Commit | Line | Data |
---|---|---|
d0817dbe NC |
1 | #!/usr/bin/perl -w |
2 | # | |
3 | # Regenerate (overwriting only if changed): | |
4 | # | |
5 | # uconfig.h | |
6 | # | |
7 | # from uconfig.h config_h.SH | |
8 | # | |
9 | # Accepts the standard regen_lib -q and -v args. | |
10 | ||
11 | use strict; | |
12 | use Config; | |
13 | require 'regen/regen_lib.pl'; | |
14 | ||
15 | my ($uconfig_h, $uconfig_h_new, $config_h_sh) | |
16 | = ('uconfig.h', 'uconfig.h-new', 'config_h.SH'); | |
17 | ||
18 | $ENV{CONFIG_SH} = 'uconfig.sh'; | |
19 | $ENV{CONFIG_H} = $uconfig_h_new; | |
20 | safer_unlink($uconfig_h_new); | |
21 | ||
22 | my $command = 'sh ./config_h.SH'; | |
23 | system $command and die "`$command` failed, \$?=$?"; | |
24 | ||
73437b64 | 25 | my $fh = open_new($uconfig_h, '>>'); |
d0817dbe | 26 | |
515c3fe0 | 27 | read_only_bottom_close_and_rename($fh, [$ENV{CONFIG_SH}, 'config_h.SH']); |