added SPAN to read_psl

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

diff --git a/code_perl/Maasha/UCSC.pm b/code_perl/Maasha/UCSC.pm
index 873c0a52dbf81fc98f4da565c24b7777dc4d857c..0e489e1f2785123b43054f58a0e127c8436ae2df 100644 (file)
--- 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;
         }