|
|
@ -89,7 +89,8 @@ sub debug {
|
|
|
|
return;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
my $msg = shift;
|
|
|
|
my $msg = shift;
|
|
|
|
$msg = "D: $msg";
|
|
|
|
my ($package, $filename, $line) = caller;
|
|
|
|
|
|
|
|
$msg = "D: $PID $line $msg";
|
|
|
|
if ( -t STDERR ) {
|
|
|
|
if ( -t STDERR ) {
|
|
|
|
$msg = colored($msg, 'clear')
|
|
|
|
$msg = colored($msg, 'clear')
|
|
|
|
}
|
|
|
|
}
|
|
|
@ -101,6 +102,10 @@ sub info {
|
|
|
|
return;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
my $msg = shift;
|
|
|
|
my $msg = shift;
|
|
|
|
|
|
|
|
if ($verbosity_level >= 3) {
|
|
|
|
|
|
|
|
my ($package, $filename, $line) = caller;
|
|
|
|
|
|
|
|
$msg = "$PID $line $msg"
|
|
|
|
|
|
|
|
}
|
|
|
|
$msg = "I: $msg";
|
|
|
|
$msg = "I: $msg";
|
|
|
|
if ( -t STDERR ) {
|
|
|
|
if ( -t STDERR ) {
|
|
|
|
$msg = colored($msg, 'green')
|
|
|
|
$msg = colored($msg, 'green')
|
|
|
|