Bug #133296 for Warn-Colorful: Some warnings will get lost

Testcase: open(my $input_measure, "<", $path_to_file); while (<$input_measure>) { warn “Test”; } Instead of printing “Test at file xyz line 123.” we will only see “ at file xyz line 123.” The cause is that the RegExp to match the warning is not generic enough. Fixed it for me as follows: $SIG{__WARN__} = sub { my $msg = shift; my $out; my (undef, $file, $line) = caller; #try to separate the warning by RegExp my ($body,$tail) = $msg =~ /(.*) at ${file} line ${line}(, <\$.*> line \d*)?\.\n$/; if (defined $tail) { $out = sprintf "%s %s %s%s.\n", colored([$colors{body}], $body), colored([$colors{file}], "at ${file}"), colored([$colors{line}], "line ${line}"), colored([$colors{line}], $tail); } elsif (defined $body) { $out = sprintf "%s %s %s.\n", colored([$colors{body}], $body), colored([$colors{file}], "at ${file}"), colored([$colors{line}], "line ${line}"); } else { $out = colored([$colors{body}], $msg); } print STDERR $out; }; Ludger Irsig Show quoted text