changed error output to fit on screen

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

diff --git a/code_perl/Maasha/Common.pm b/code_perl/Maasha/Common.pm
index 60d9bc5efdfee701dee85f1dfcf716818e0d85f2..ae2be0808a31aaccd1ea83d76bf42a841c4aa89e 100644 (file)
--- a/code_perl/Maasha/Common.pm
+++ b/code_perl/Maasha/Common.pm
@@ -100,6 +100,8 @@ sub error
             $file    = $2;
             $line_no = $3;
             
+            $routine =~ s/\(.+\)$/ .../;
+
             $routine_max = length $routine if length $routine > $routine_max;
             $file_max    = length $file    if length $file    > $file_max;
             $line_max    = length $line_no if length $line_no > $line_max;