From 4d56a43cb0895da1d56a0a12421a12307fbbe3cf Mon Sep 17 00:00:00 2001
From: unknown <msvensson@neptunus.(none)>
Date: Fri, 6 Oct 2006 11:49:31 +0200
Subject: [PATCH] Only print thesort order debug printout if using script-debug

---
 mysql-test/lib/mtr_cases.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/mysql-test/lib/mtr_cases.pl b/mysql-test/lib/mtr_cases.pl
index 344c80ac0bf..d73c7a83dca 100644
--- a/mysql-test/lib/mtr_cases.pl
+++ b/mysql-test/lib/mtr_cases.pl
@@ -186,13 +186,13 @@ sub collect_test_cases ($) {
 
     @$cases = sort { $sort_criteria{$a->{"name"}} cmp $sort_criteria{$b->{"name"}}; } @$cases;
 
-###  For debugging the sort-order
-    foreach $tinfo (@$cases)
+    if ( $::opt_script_debug )
     {
-      print $sort_criteria{$tinfo->{"name"}};
-      print " -> \t";
-      print $tinfo->{"name"};
-      print "\n";
+      # For debugging the sort-order
+      foreach $tinfo (@$cases)
+      {
+	print("$sort_criteria{$tinfo->{'name'}} -> \t$tinfo->{'name'}\n");
+      }
     }
   }