From ed0b5069ce676ecc5ca842efa0f4a20296e89368 Mon Sep 17 00:00:00 2001 From: Johannes 'josch' Schauer Date: Sat, 4 Jan 2020 00:37:49 +0100 Subject: [PATCH] on debug level verbosity, also print the line number --- mmdebstrap | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/mmdebstrap b/mmdebstrap index 235d3bc..dc31644 100755 --- a/mmdebstrap +++ b/mmdebstrap @@ -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')