upgraded write_fixedstep

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

diff --git a/code_perl/Maasha/SQL.pm b/code_perl/Maasha/SQL.pm
index 70985249a4048d46cab5508a6f4f288f0e26c22e..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;
@@ -263,7 +262,7 @@ sub query_hashref_list
 
     # Returns datastructure.
 
-    my $table = $dbh->selectall_arrayref( $sql, { Slice => {} } ); # This call is slow! :o(
+    my $table = $dbh->selectall_arrayref( $sql, { Slice => {} } );
 
     return wantarray ? @{ $table } : $table;
 }