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

git-svn-id: http://biopieces.googlecode.com/svn/trunk@2074 74ccb610-7750-0410-82ae-013aeee3265d

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;