Lines Matching refs:debug

35 my %debug = ();
70  $debug{$pkg} ||= 0;
97 sub debug  subroutine
111    $oldval = $debug{$pkg} || 0;
117  $level = $debug{$pkg} || 0
121     if($level && !exists $debug{$pkg});
129    $debug{$pkg} = $level;
218 	if($cmd->debug);
274 		if $cmd->debug;
290      carp("$cmd: Timeout") if($cmd->debug);
338      if ($cmd->debug);
368      if ($cmd->debug & 4);
400  if($cmd->debug) {
439        carp("$cmd: $!") if $cmd->debug;
447      carp("$cmd: Timeout") if($cmd->debug);
466  if($cmd->debug)
487        carp("$cmd: $!") if $cmd->debug;
495      carp("$cmd: Timeout") if($cmd->debug);
524     if($cmd->debug);