X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=code_perl%2FMaasha%2FCommon.pm;h=079587ba4eb013f0b3d9f5179edb3efc4c204d24;hb=dd9446a30cfe771afdf6aa51dd5cc38307971e6a;hp=64c9182cde053a7af648eca3ac2f306d41440d39;hpb=58cf7a65df72373a56fb630bdfad9e66cb04dad6;p=biopieces.git

diff --git a/code_perl/Maasha/Common.pm b/code_perl/Maasha/Common.pm
index 64c9182..079587b 100644
--- a/code_perl/Maasha/Common.pm
+++ b/code_perl/Maasha/Common.pm
@@ -180,7 +180,7 @@ sub error
     $file_max    = length "File";
     $line_max    = length "Line";
 
-    if ( $line =~ /^ at (.+) line (\d+)$/ )
+    if ( $line =~ /^ at (.+) line (\d+)\.?$/ )
     {
         $file    = $1;
         $line_no = $2;
@@ -736,7 +736,7 @@ sub str_analyze
 
     @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 ]
     }