Let's try a different tactic in a scalar context. If there's no data, return undef.

This commit is contained in:
ian%hixie.ch 2002-07-07 15:42:57 +00:00
parent 43f0aafec4
commit 5a6c17d958

View File

@ -62,12 +62,15 @@ sub row {
return $self->handle->fetchrow_array();
} else {
my $array = $self->handle->fetchrow_arrayref();
if ($#$array) {
# more than one data point
return $array;
} else {
if ((not defined($array)) or @$array == 0) {
# no data
return undef;
} elsif (@$array == 1) {
# only one data point
return $array->[0];
} else {
# more than one data point
return $array;
}
}
}