[perl5.git] / regen / uconfig_h.pl

#!/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']);
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;
3d7c117d	13	require './regen/regen_lib.pl';
d0817dbe NC	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']);