Lines Matching refs:debug
498 @debug = (); # stack for nesting debug state
562 if ($main::debug) {
711 print "event = $id\n" if $main::debug;
760 print "token = $id\n" if $main::debug;
784 print "msg_list = $id\n" if $main::debug;
808 print "service $name = $id\n" if $main::debug;
836 push (@debug, $main::debug);
837 my $debug = $main::debug;
842 $main::debug = ($state eq 'on') ? 1 : 0;
845 $main::debug = !$debug;
847 if ($debug != $main::debug) {
848 print 'debug is ', $main::debug ? 'on' : 'off', "\n";
855 my $debug = $main::debug;
856 $main::debug = pop (@debug);
858 if ($debug != $main::debug) {
859 print 'debug is ', $main::debug ? 'on' : 'off', "\n";