hashRef must return something false otherwise while loops go forever.
This commit is contained in:
parent
fd3fb924f3
commit
6eb27ce938
1 changed files with 1 additions and 7 deletions
|
|
@ -179,13 +179,7 @@ Returns the next row of data in the form of a hash reference.
|
|||
|
||||
sub hashRef {
|
||||
my $self = shift;
|
||||
my ($hashRef, %hash);
|
||||
$hashRef = $self->sth->fetchrow_hashref();
|
||||
if (defined $hashRef) {
|
||||
return $hashRef;
|
||||
} else {
|
||||
return {};
|
||||
}
|
||||
return $self->sth->fetchrow_hashref();
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue