From 2814bd5fd2294e03ad112d979f6baccd97271c00 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 25 Jul 2008 01:12:54 +0000
Subject: [PATCH] changed error output to fit on screen

git-svn-id: http://biopieces.googlecode.com/svn/trunk@193 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Common.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/code_perl/Maasha/Common.pm b/code_perl/Maasha/Common.pm
index 60d9bc5..ae2be08 100644
--- 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;
-- 
2.39.5