fix mistake in WebGUI::Test

This commit is contained in:
Graham Knop 2010-06-10 08:17:17 -05:00
parent 883b145c44
commit 169218abf7

View file

@ -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;
require WebGUI::Session;
my $session = WebGUI::Session->open( $CLASS->config, newEnv() );
@ -149,7 +151,10 @@ sub newSession {
}
sub newEnv {
shift
if eval { $_[0]->isa($CLASS) };
my $form = shift;
require HTTP::Message::PSGI;
require HTTP::Request::Common;
my $config = $CLASS->config;
@ -1027,7 +1032,7 @@ This is a class method.
my @guarded;
sub addToCleanup {
shift
if try { $_[0]->isa($CLASS) };
if eval { $_[0]->isa($CLASS) };
push @guarded, cleanupGuard(@_);
}