$file_max = length "File";
$line_max = length "Line";
- if ( $line =~ /^ at (.+) line (\d+)$/ )
+ if ( $line =~ /^ at (.+) line (\d+)\.?$/ )
{
$file = $1;
$line_no = $2;
@composition = Maasha::Common::str_analyze_C( $str );
- for ( $i = 32; $i < 128; $i++ ) { # Only include printable chars
+ for ( $i = 32; $i <= 126; $i++ ) { # Only include printable chars
$hash{ chr $i } = $composition[ $i ]
}