perlop: fix documentation for s/// "false" return value
[perl.git] / regen / uconfig_h.pl
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']);