Lines Matching refs:debug
61 use vars qw($error $debug $major_version $minor_version);
104 $debug = 0; # for debugging
265 if ( $debug ) {
296 print STDERR ("=> user linkage: $userlinkage\n") if $debug;
310 print STDERR ("=> prefix=\"$prefix\"\n") if $debug;
364 if $debug;
377 if $debug;
411 if $debug;
416 if $debug;
421 if $debug;
448 if ( $debug ) {
463 print STDERR ("=> arg \"", $opt, "\"\n") if $debug;
490 print STDERR ("=> cname for \"$opt\" is ") if $debug;
492 print STDERR ("\"$ctl->[CTL_CNAME]\"\n") if $debug;
496 ref($linkage{$opt}), "\n") if $debug;
501 if $debug;
512 if $debug;
516 if $debug;
522 if $debug;
526 if $debug;
531 if $debug;
537 if $debug;
542 if $debug;
549 if $debug;
561 if $debug && $eval_error ne '';
582 if $debug;
587 if $debug;
594 if $debug;
599 if $debug;
606 if $debug;
615 print STDERR ("=>\$L{$opt} = \"$arg\"\n") if $debug;
658 if $debug;
666 if $debug && $eval_error ne '';
679 "(not an option, may permute)\n") if $debug;
698 if $debug;
853 print STDERR ("=> find \"$opt\"\n") if $debug;
861 print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug;
874 "\", optarg = \"$optarg\"\n") if $debug;
890 if $debug;
899 "$starter$tryopt$rest\n") if $debug;
916 "out of ", scalar(@names), "\n") if $debug;
953 if $debug;
978 " for \"", $opt, "\"\n") if $debug;
1211 [ $error, $debug, $major_version, $minor_version,
1217 ( $error, $debug, $major_version, $minor_version,
1307 $debug = $action;