Lines Matching refs:main
73 $main::errExit = 3;
81 $main::errExit = 3;
209 $main::errExit = 3;
270 $main::errExit = 3;
432 $main::errExit = 3;
437 $main::errExit = 3;
525 $main::errExit = 3;
530 $main::errExit = 3;
622 if ($main::debug) {
641 $main::errExit = 3;
748 $main::errExit = 3;
762 $main::errExit = 3;
772 $main::errExit = 3;
775 print "event = $id\n" if $main::debug;
830 # print "include = $id\n" if $main::debug;
834 # $main::errExit = 3;
844 print "token = $id\n" if $main::debug;
850 $main::errExit = 3;
869 print "msg_list = $id\n" if $main::debug;
877 $main::errExit = 3;
893 $main::errExit = 3;
896 print "note_list = $id\n" if $main::debug;
902 $main::errExit = 3;
915 print "service $name = $id\n" if $main::debug;
920 $main::errExit = 3;
924 $main::errExit = 3;
928 $main::errExit = 3;
946 push (@debug, $main::debug);
947 my $debug = $main::debug;
952 $main::debug = ($state eq 'on') ? 1 : 0;
955 $main::debug = !$debug;
957 if ($debug != $main::debug) {
958 print 'debug is ', $main::debug ? 'on' : 'off', "\n";
965 my $debug = $main::debug;
966 $main::debug = pop (@debug);
968 if ($debug != $main::debug) {
969 print 'debug is ', $main::debug ? 'on' : 'off', "\n";