Lines Matching refs:debug
11 my $debug = 0;
19 print STDERR "XX opt= $opt\n" if $debug;
27 print STDERR "XX opt_$key = " . ${"opt_$key"} . "\n" if $debug;
32 print STDERR "XX opt_P = $opt_P\n" if $debug;
38 print STDERR "XX CHECK_REMOTE opt_T=$opt_T\n" if $debug;
39 if( $opt_T =~ /debug/ ){
40 $debug = 1;
50 print STDERR "XX CHECK_REMOTE opt_P=$opt_P\n" if $debug;
51 print STDERR "XX CHECK_REMOTE " . join(" ",@ARGV) . "\n" if $debug;
61 print STDERR "XX CHECK_REMOTE sleeping\n" if $debug;
86 print STDERR "XX CHECK_REMOTE remote='$remote', port='$port', pr='$printer', op='$long'\n" if $debug;
96 print STDERR "XX CHECKREMOTE '$line'\n" if $debug;
98 print STDERR "XX CHECKREMOTE printing disable\n" if $debug;
101 print STDERR "XX CHECKREMOTE printing disable\n" if $debug;
105 print STDERR "XX CHECKREMOTE $count jobs\n" if $debug;
119 print STDERR "XX CHECK_REMOTE remote='$remote', port=$port\n" if $debug;