From: Stefano Lattarini <stefano.lattarini@gmail.com>
Date: Thu, 2 Feb 2012 19:14:30 +0000 (+0100)
Subject: cosmetics: fix indentation and typos in perl TAP driver
X-Git-Tag: ng-0.5a~11^2~19
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b819187e01cfa365a5bf3b122074c7da28fb8e1;p=thirdparty%2Fautomake.git

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/.
---

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 ($)