svn commit: r109735 - /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm

[stas]

Author: stas
Date: Fri Dec  3 15:33:17 2004
New Revision: 109735

URL: http://svn.apache.org/viewcvs?view=rev&rev=109735
Log:
fix the breakage caused by the last commit

Modified:
   httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm

Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm
Url: 
http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm?view=diff&rev=109735&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm&r1=109734&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm&r2=109735
==============================================================================
--- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm 
(original)
+++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestTrace.pm Fri Dec 
 3 15:33:17 2004
@@ -18,18 +18,20 @@
 use warnings FATAL => 'all';
 
 use Exporter ();
-use vars qw(@Levels @Utils @Subs @ISA @EXPORT $VERSION $Level $LogFH);
+use vars qw(@Levels @Utils @Level_subs @Util_subs
+            @ISA @EXPORT $VERSION $Level $LogFH);
 
 BEGIN {
     @Levels = qw(emerg alert crit error warning notice info debug);
     @Utils  = qw(todo);
-    @Subs   = map {($_, "${_}_mark", "${_}_sub")} (@Levels, @Utils);
+    @Level_subs = map {($_, "${_}_mark", "${_}_sub")} (@Levels);
+    @Util_subs  = map {($_, "${_}_mark", "${_}_sub")} (@Utils);
 }
 
 @ISA     = qw(Exporter);
[EMAIL PROTECTED]  = (@Levels);
[EMAIL PROTECTED]  = (@Level_subs);
 $VERSION = '0.01';
-use subs (@Subs);
+use subs (@Level_subs, @Util_subs);
 
 # default settings overrideable by users
 $Level = undef;