Only print thesort order debug printout if using script-debug

This commit is contained in:
unknown 2006-10-06 11:49:31 +02:00
parent 9350dbc4f9
commit 4d56a43cb0

View file

@ -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");
}
}
}