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 3f019f1a314a6c4c4263c9a76942b33d5cb545e0..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 );
@@ -67,6 +67,7 @@ sub delete_database
          $password,
        ) = @_;
 
+    die qq(ERROR: Protected database: "$database!\n" ) if $database =~/^(mysql|information_schema)$/i;
     system( "mysqladmin drop $database --force --user=$user --password=$password > /dev/null 2>&1"  ) == 0 or
     die qq(ERROR: Could not drop database "$database"!\n);
 
@@ -218,7 +219,6 @@ sub query_array
     # Returns a list.
 
     my ( $sth, $table, $errstr, @status );
-
     if ( not $sth = $dbh->prepare( $sql ) ) 
     {
             $errstr = $DBI::errstr;
@@ -234,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;