on debug level verbosity, also print the line number
This commit is contained in:
parent
170344a611
commit
ed0b5069ce
1 changed files with 6 additions and 1 deletions
|
@ -89,7 +89,8 @@ sub debug {
|
|||
return;
|
||||
}
|
||||
my $msg = shift;
|
||||
$msg = "D: $msg";
|
||||
my ($package, $filename, $line) = caller;
|
||||
$msg = "D: $PID $line $msg";
|
||||
if ( -t STDERR ) {
|
||||
$msg = colored($msg, 'clear')
|
||||
}
|
||||
|
@ -101,6 +102,10 @@ sub info {
|
|||
return;
|
||||
}
|
||||
my $msg = shift;
|
||||
if ($verbosity_level >= 3) {
|
||||
my ($package, $filename, $line) = caller;
|
||||
$msg = "$PID $line $msg"
|
||||
}
|
||||
$msg = "I: $msg";
|
||||
if ( -t STDERR ) {
|
||||
$msg = colored($msg, 'green')
|
||||
|
|
Loading…
Reference in a new issue