diff options
author | Stefano Lattarini <stefano.lattarini@gmail.com> | 2012-02-02 20:14:30 +0100 |
---|---|---|
committer | Stefano Lattarini <stefano.lattarini@gmail.com> | 2012-02-02 20:22:25 +0100 |
commit | 6b819187e01cfa365a5bf3b122074c7da28fb8e1 (patch) | |
tree | a7b5f644fd8136107d2188cd41785da8ccc62c8c /lib | |
parent | 87f2058a5d83a1f256eaf95a9e345dd61ff959d9 (diff) | |
download | automake-6b819187e01cfa365a5bf3b122074c7da28fb8e1.tar.gz |
cosmetics: fix indentation and typos in perl TAP driver
* lib/tap-driver.pl (get_test_exit_message): Fix botched
indentation. Fix typo in error message: s/ststus/status/.
Diffstat (limited to 'lib')
-rwxr-xr-x | lib/tap-driver.pl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/tap-driver.pl b/lib/tap-driver.pl index 77d3b95a6..9ce1a3122 100755 --- a/lib/tap-driver.pl +++ b/lib/tap-driver.pl @@ -32,7 +32,7 @@ use strict; use Getopt::Long (); use TAP::Parser; -my $VERSION = '2012-02-01.18'; # UTC +my $VERSION = '2012-02-01.19'; # UTC my $ME = "tap-driver.pl"; @@ -279,7 +279,7 @@ sub get_test_exit_message () { my $wstatus = $parser->wait; # Watch out for possible internal errors. - die "$ME: couldn't get the exit ststus of the TAP producer" + die "$ME: couldn't get the exit status of the TAP producer" unless defined $wstatus; # Return an undefined value if the producer exited with success. return unless $wstatus; @@ -287,17 +287,17 @@ sub get_test_exit_message () # by a signal. use POSIX qw (WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG); if (WIFEXITED ($wstatus)) - { - return sprintf "exited with status %d", WEXITSTATUS ($wstatus); - } + { + return sprintf "exited with status %d", WEXITSTATUS ($wstatus); + } elsif (WIFSIGNALED ($wstatus)) - { + { return sprintf "terminated by signal %d", WTERMSIG ($wstatus); - } + } else - { - return "terminated abnormally"; - } + { + return "terminated abnormally"; + } } sub stringify_result_obj ($) |