fixed apparent change in Carp yielding an extra . after error msg

[biopieces.git] / code_perl / Maasha / Common.pm

diff --git a/code_perl/Maasha/Common.pm b/code_perl/Maasha/Common.pm
index 0e86c2e431fa4b218899e7739845330d8b2fceea..079587ba4eb013f0b3d9f5179edb3efc4c204d24 100644 (file)
--- 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;