From 6eb27ce93805c54b79a934fed69cf64a6b197d9d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 20 Jan 2006 22:10:01 +0000
Subject: [PATCH] hashRef must return something false otherwise while loops go
 forever.

---
 lib/WebGUI/SQL/ResultSet.pm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lib/WebGUI/SQL/ResultSet.pm b/lib/WebGUI/SQL/ResultSet.pm
index a501af54f..a6f648069 100644
--- a/lib/WebGUI/SQL/ResultSet.pm
+++ b/lib/WebGUI/SQL/ResultSet.pm
@@ -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();
 }