--- Violation.pm.orig 2015-08-11 17:49:22.000000000 +1000 +++ Violation.pm 2017-02-02 10:53:51.761437606 +1100 @@ -297,12 +297,13 @@ my $code_string = $stmnt->content() || $EMPTY; # Split into individual lines - my @lines = split qr{ \n\s* }xms, $code_string; + my @lines = split /\n/, $code_string; # Take the line containing the element that is in violation my $inx = ( $elem->line_number() || 0 ) - ( $stmnt->line_number() || 0 ); - $inx > @lines and return $EMPTY; + $inx > $#lines and return $EMPTY; + $lines[$inx] =~ s/^\s+//; return $lines[$inx]; }