From 9b07fd26a31d16fb4f7b82dfe54019b926f60f23 Mon Sep 17 00:00:00 2001 From: Glenn Proctor <gp1@sanger.ac.uk> Date: Wed, 20 Jul 2005 09:25:33 +0000 Subject: [PATCH] Reverted previous mistaken commit --- modules/Bio/EnsEMBL/DBSQL/StatementHandle.pm | 52 ++++++++++---------- 1 file changed, 26 insertions(+), 26 deletions(-) diff --git a/modules/Bio/EnsEMBL/DBSQL/StatementHandle.pm b/modules/Bio/EnsEMBL/DBSQL/StatementHandle.pm index 60617eec1b..787367660c 100644 --- a/modules/Bio/EnsEMBL/DBSQL/StatementHandle.pm +++ b/modules/Bio/EnsEMBL/DBSQL/StatementHandle.pm @@ -76,32 +76,32 @@ sub sql { # # uncomment this for printing out handy debug information (every query) # -sub execute { - my $self = shift; - - my $sql = $self->sql(); - - - my @chrs = split(//, $sql); - - my $j = 0; - for(my $i =0; $i < @chrs; $i++) { - $chrs[$i] = $_[$j++] if($chrs[$i] eq '?' && defined($_[$j])); - } - - my $str = join('', @chrs); - - my $time = time; -# print STDERR "\nSQL:\n$str\n\n"; - - # print STDERR stack_trace_dump(), "\n"; - - my $res = $self->SUPER::execute(@_); - $time = time - $time; -# print STDERR "DONE ($time)\n"; - - return $res; - } +#sub execute { +# my $self = shift; +# +# my $sql = $self->sql(); +# +# +# my @chrs = split(//, $sql); +# +# my $j = 0; +# for(my $i =0; $i < @chrs; $i++) { +# $chrs[$i] = $_[$j++] if($chrs[$i] eq '?' && defined($_[$j])); +# } +# +# my $str = join('', @chrs); +# +# my $time = time; +## print STDERR "\nSQL:\n$str\n\n"; +# +# # print STDERR stack_trace_dump(), "\n"; +# +# my $res = $self->SUPER::execute(@_); +# $time = time - $time; +## print STDERR "DONE ($time)\n"; +# +# return $res; +# } sub DESTROY { -- GitLab