175 |
$AllTrace = 0; |
$AllTrace = 0; |
176 |
# Build the category hash. Note that if we find a "*", we turn on non-category |
# Build the category hash. Note that if we find a "*", we turn on non-category |
177 |
# tracing. We must also clear away any pre-existing data. |
# tracing. We must also clear away any pre-existing data. |
178 |
%Categories = (); |
%Categories = ( main => 1 ); |
179 |
for my $category (@categoryData) { |
for my $category (@categoryData) { |
180 |
if ($category eq '*') { |
if ($category eq '*') { |
181 |
$AllTrace = 1; |
$AllTrace = 1; |