Skip to content
Snippets Groups Projects
Commit 9b07fd26 authored by Glenn Proctor's avatar Glenn Proctor
Browse files

Reverted previous mistaken commit

parent 999ab33c
No related branches found
No related tags found
No related merge requests found
......@@ -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 {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment