Refactoring - convert $trace to our.
authorShlomi Fish <shlomif@shlomifish.org>
Tue, 2 Oct 2012 16:05:21 +0000 (18:05 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:33 +0000 (09:18 -0500)
lib/perl5db.pl

index 9963375..77e13bd 100644 (file)
@@ -677,12 +677,13 @@ use vars qw(
     %sub
     $subname
     $term
-    $trace
     $usercontext
     $warnLevel
     $window
 );
 
+our ($trace);
+
 # Used to save @ARGV and extract any debugger-related flags.
 use vars qw(@ARGS);
 
@@ -3493,7 +3494,7 @@ sub _DB__handle_watch_expressions
 {
     my $self = shift;
 
-    if ( $DB::trace & 2 ) {
+    if ( $trace & 2 ) {
         for my $n (0 .. $#DB::to_watch) {
             $DB::evalarg = $DB::to_watch[$n];
             local $DB::onetimeDump;    # Tell DB::eval() to not output results
@@ -3646,11 +3647,11 @@ number information, and print that.
 
 sub _handle_t_command {
     if (my ($levels) = $DB::cmd =~ /\At(?:\s+(\d+))?\z/) {
-        $DB::trace ^= 1;
+        $trace ^= 1;
         local $\ = '';
         $DB::trace_to_depth = $levels ? $DB::stack_depth + $levels : 1E9;
         print {$DB::OUT} "Trace = "
-        . ( ( $DB::trace & 1 )
+        . ( ( $trace & 1 )
             ? ( $levels ? "on (to level $DB::trace_to_depth)" : "on" )
             : "off" ) . "\n";
         next CMD;