cosmetics: fix botched indentation in perl TAP driver

* lib/tap-driver.pl (main, Getopt::Long::GetOptions): Fix
improper or botched indentation.

diff --git a/ChangeLog b/ChangeLog
index bdccc31f92798c9ef46498ffaa6cee4987aa9af2..c64cf6e0a50c531f6832fa9ba13c1956c6596aa8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-08-20  Stefano Lattarini  <stefano.lattarini@gmail.com>
+
+       cosmetics: fix botched indentation in perl TAP driver
+       * lib/tap-driver.pl (main, Getopt::Long::GetOptions): Fix
+       improper or botched indentation.
+
 2011-08-20  Stefano Lattarini  <stefano.lattarini@gmail.com>
 
        coverage: some more tests on corner cases of TAP support

diff --git a/lib/tap-driver.pl b/lib/tap-driver.pl
index 7043815f3652c37ac424ace3b92cb15b8a019b50..9e1ece4333b5a9b0c42e0776578d419db520d07b 100755 (executable)
--- a/lib/tap-driver.pl
+++ b/lib/tap-driver.pl
@@ -73,7 +73,8 @@ my $log_file = undef;
 my $trs_file = undef;
 my $diag_string = "#";
 
-Getopt::Long::GetOptions (
+Getopt::Long::GetOptions
+  (
     'help' => sub { print $HELP; exit 0; },
     'version' => sub { print "$ME $VERSION\n"; exit 0; },
     'test-name=s' => \$test_script_name,
@@ -450,22 +451,22 @@ sub main (@)
   if (!$bailed_out)
     {
       if (!$plan_seen)
-      {
-        testsuite_error "missing test plan";
-      }
-    elsif ($parser->tests_planned != $parser->tests_run)
-      {
-        my ($planned, $run) = ($parser->tests_planned, $parser->tests_run);
-        my $bad_amount = $run > $planned ? "many" : "few";
-        testsuite_error (sprintf "too %s tests run (expected %d, got %d)",
-                                 $bad_amount, $planned, $run);
-      }
+        {
+          testsuite_error "missing test plan";
+        }
+      elsif ($parser->tests_planned != $parser->tests_run)
+        {
+          my ($planned, $run) = ($parser->tests_planned, $parser->tests_run);
+          my $bad_amount = $run > $planned ? "many" : "few";
+          testsuite_error (sprintf "too %s tests run (expected %d, got %d)",
+                                   $bad_amount, $planned, $run);
+        }
     }
   if (!$cfg{"ignore-exit"} && !$bailed_out)
-  {
-    my $msg = get_test_exit_message ();
-    testsuite_error $msg if $msg;
-  }
+    {
+      my $msg = get_test_exit_message ();
+      testsuite_error $msg if $msg;
+    }
   write_test_results;
   close LOG or die "closing $log_file: $!\n";
   exit 0;