From 8c2c2f0a8d6993dd12240bc4241ee8bbfc3a2ef5 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Thu, 10 Jun 2010 08:25:03 -0500
Subject: [PATCH] fix mistake in WebGUI::Test

---
 t/lib/WebGUI/Test.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 3ce02cd5e..a2d867b9c 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -139,6 +139,8 @@ If true, the session won't be registered for automatic deletion.
 =cut
 
 sub newSession {
+    shift
+        if eval { $_[0]->isa($CLASS) };
     my $noCleanup = shift;
     my $pseudoRequest = WebGUI::PseudoRequest->new;
     require WebGUI::Session;
@@ -885,7 +887,7 @@ This is a class method.
 my @guarded;
 sub addToCleanup {
     shift
-        if try { $_[0]->isa($CLASS) };
+        if eval { $_[0]->isa($CLASS) };
     push @guarded, cleanupGuard(@_);
 }