Mercurial > repo
comparison perl-5.22.2/regen/uconfig_h.pl @ 8045:a16537d2fe07
<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author | HackBot |
---|---|
date | Sat, 14 May 2016 14:54:38 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
8044:711c038a7dce | 8045:a16537d2fe07 |
---|---|
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 | |
25 my $fh = open_new($uconfig_h, '>>'); | |
26 | |
27 read_only_bottom_close_and_rename($fh, [$ENV{CONFIG_SH}, 'config_h.SH']); |