mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2024-12-15 02:20:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

* lib/Autom4te/FileUtils.pm, lib/Autom4te/Struct.pm: Sync

Browse Source 
from Automake.
This commit is contained in:
Ralf Wildenhues 2006-04-06 22:39:22 +00:00
parent d53aec7560
commit df756e0046
3 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,5 +1,8 @@
2006-04-07 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* lib/Autom4te/FileUtils.pm, lib/Autom4te/Struct.pm: Sync
from Automake.
* doc/make-stds.texi: Sync from gnulib.
2006-04-06 Eric Blake <ebb9@byu.net>

31
lib/Autom4te/FileUtils.pm
View File

@ -207,18 +207,18 @@ sub up_to_date_p ($@)
}
=item C<handle_exec_errors ($command)>
=item C<handle_exec_errors ($command, [$expected_exit_code = 0])>
Display an error message for C<$command>, based on the content of
C<$?> and C<$!>.
C<$?> and C<$!>. Be quiet if the command exited normally
with C<$expected_exit_code>.
=cut
# handle_exec_errors ($COMMAND)
# -----------------------------
sub handle_exec_errors ($)
sub handle_exec_errors ($;$)
{
my ($command) = @_;
my ($command, $expected) = @_;
$expected = 0 unless defined $expected;
$command = (split (' ', $command))[0];
if ($!)
@ -235,7 +235,8 @@ sub handle_exec_errors ($)
# Propagate exit codes.
fatal ('',
"$command failed with exit status: $status",
exit_code => $status);
exit_code => $status)
unless $status == $expected;
}
elsif (WIFSIGNALED ($?))
{
@ -272,24 +273,22 @@ sub xqx ($)
}
=item C<xsystem ($command)>
=item C<xsystem (@argv)>
Same as C<system>, but fails on errors, and reports the C<$command>
Same as C<system>, but fails on errors, and reports the C<@argv>
in verbose mode.
=cut
# xsystem ($COMMAND)
# ------------------
sub xsystem ($)
sub xsystem (@)
{
my ($command) = @_;
my (@command) = @_;
verb "running: $command";
verb "running: @command";
$! = 0;
handle_exec_errors $command
if system $command;
handle_exec_errors "@command"
if system @command;
}

2
lib/Autom4te/Struct.pm
View File

@ -508,7 +508,7 @@ accessor accordingly.
The constructor of a generated class can be passed a list
of I<element>=>I<value> pairs, with which to initialize the struct.
If no initializer is specified for a particular element, its default
initialization is performed instead. Initializers for nonexistent
initialization is performed instead. Initializers for non-existent
elements are silently ignored.
Note that the initializer for a nested struct is specified