add input line numbers to some log messages

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 0fc72d4c30c21235ac641fc13d360480b0dd37aa..754ce093fdf9c0e9bb5fa3171e9a7d670b415035 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -480,6 +480,8 @@ sub complain {
     my $msg           = shift;
     my $logger_object = $tokenizer_self->[_logger_object_];
     if ($logger_object) {
+        my $input_line_number = $tokenizer_self->[_last_line_number_] + 1;
+        $msg = "Line $input_line_number: $msg";
         $logger_object->complain($msg);
     }
     return;