on debug level verbosity, also print the line number

4 years ago · ed0b5069ce
parent 170344a611
commit ed0b5069ce
1 changed files with 6 additions and 1 deletions
--- a/7
+++ b/7
@ -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')