Mercurial > repo
view 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 |
line wrap: on
line source
#!/usr/bin/perl -w # # Regenerate (overwriting only if changed): # # uconfig.h # # from uconfig.h config_h.SH # # Accepts the standard regen_lib -q and -v args. use strict; use Config; require 'regen/regen_lib.pl'; my ($uconfig_h, $uconfig_h_new, $config_h_sh) = ('uconfig.h', 'uconfig.h-new', 'config_h.SH'); $ENV{CONFIG_SH} = 'uconfig.sh'; $ENV{CONFIG_H} = $uconfig_h_new; safer_unlink($uconfig_h_new); my $command = 'sh ./config_h.SH'; system $command and die "`$command` failed, \$?=$?"; my $fh = open_new($uconfig_h, '>>'); read_only_bottom_close_and_rename($fh, [$ENV{CONFIG_SH}, 'config_h.SH']);