- Better list trace levels.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@1925 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Mark Buechler
2010-08-03 18:50:36 +00:00
parent 819e3ea27e
commit 13323936b4
+10 -2
View File
@@ -2203,10 +2203,18 @@ sub listAttributes {
if ($nonkey && defined($$attributes{'trace_level'})) {
my $found = FALSE;
print "\n\tPossible trace levels (use trace_level=\"add <level>\", none, all or default to set):\n";
print "\n\tPossible trace levels:\n".
"\t (use trace_level=\"add <level>\", none, all or default to set):\n";
my $count = 0;
foreach my $entry (@{$$attributes{'trace_level'}->{'set'}}) {
print "\t\t$entry\n";
print "\t\t" if (!$count);
print "$entry, ";
$count++;
if ($count == 5) {
print "\n";
$count = 0;
}
}
print "\n";