From 0f90dd22568b7f41a937696974a5852d982cefe7 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Wed, 17 Sep 2008 23:50:37 +0000
Subject: [PATCH] added SPAN to read_psl

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

diff --git a/code_perl/Maasha/UCSC.pm b/code_perl/Maasha/UCSC.pm
index 873c0a5..0e489e1 100644
--- a/code_perl/Maasha/UCSC.pm
+++ b/code_perl/Maasha/UCSC.pm
@@ -736,6 +736,7 @@ sub psl_get_entry
             );
 
             $record{ "SCORE" } = $record{ "MATCHES" } + int( $record{ "REPMATCHES" } / 2 ) - $record{ "MISMATCHES" } - $record{ "QNUMINSERT" } - $record{ "SNUMINSERT" };
+            $record{ "SPAN" }  = $fields[ 12 ] - $fields[ 11 ];
     
             return wantarray ? %record : \%record;
         }
-- 
2.39.5