Lines Matching refs:debug
498 @debug = (); # stack for nesting debug state
524 # do not use register() for debug because register generates extra
525 # debug information
527 xmlHandlers::registerStartCallback('debug', \&debugStart);
528 xmlHandlers::registerEndCallback('debug', \&debugEnd);
562 if ($main::debug) {
711 print "event = $id\n" if $main::debug;
747 # print "include = $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;
827 # <debug set="on"> or <debug set="off"> or <debug>
828 # if the set attribute is omitted, debug state is toggled
830 # debugStart / debugEnd are used to insure debug state is
831 # scoped to the block between <debug> and </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";