fixed seq qual length check

[biopieces.git] / code_perl / Maasha / SQL.pm

diff --git a/code_perl/Maasha/SQL.pm b/code_perl/Maasha/SQL.pm
index be6099921a395c102c38228af3dee1a824ceab6a..9f273756ffc470c49f24e1f76287b4473dbe86dc 100644 (file)
--- a/code_perl/Maasha/SQL.pm
+++ b/code_perl/Maasha/SQL.pm
@@ -34,7 +34,7 @@ use warnings;
 
 use DBI;
 use Data::Dumper;
-
+use Time::HiRes;
 use Maasha::Common;
 
 use vars qw( @ISA @EXPORT );
@@ -219,7 +219,6 @@ sub query_array
     # Returns a list.
 
     my ( $sth, $table, $errstr, @status );
-
     if ( not $sth = $dbh->prepare( $sql ) ) 
     {
             $errstr = $DBI::errstr;
@@ -235,7 +234,7 @@ sub query_array
             disconnect( $dbh );
             die qq(ERROR: $errstr, "SQL EXECUTE ERROR" );
     }
-    
+
     if ( $table = $sth->fetchall_arrayref( $out ) )
     {
             return wantarray ? @{ $table } : $table;