From d40375c3b0b4e77a3a14f48b801a99639487cf5b Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 1 Jul 2003 01:24:19 +0000
Subject: [PATCH] fixed a mod_perl 2 problem

---
 lib/WebGUI/Persistent.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Persistent.pm b/lib/WebGUI/Persistent.pm
index 0413b8a77..fd0613d15 100644
--- a/lib/WebGUI/Persistent.pm
+++ b/lib/WebGUI/Persistent.pm
@@ -405,7 +405,7 @@ sub new {
           );
           my $query = $select->buildQuery();
           my $hash = WebGUI::SQL->quickHashRef($query);
-          return undef unless %$hash; 
+          return undef unless defined %$hash; 
           return bless {_property => $hash,_noSet => $noSet}, $class;
      }
 }