| Subject: | Missing assignment will break in 5.19.2 and up |
--- a/lib/Perl/Tidy.pm 2012-12-08 14:43:53.000000000 +0100
+++ b/lib/Perl/Tidy.pm 2013-07-15 08:41:10.542050311 +0200
@@ -27323,7 +27323,7 @@ sub guess_if_pattern_or_division {
my $msg = "guessing that / after $last_nonblank_token starts a ";
if ( $i >= $max_token_index ) {
- "division (no end to pattern found on the line)\n";
+ $msg .= "division (no end to pattern found on the line)\n";
}
else {
my $ibeg = $i;