oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix mistake in WebGUI::Test

Browse source
This commit is contained in:
Graham Knop 2010-06-10 08:25:03 -05:00
parent 4c18ba3563
commit 8c2c2f0a8d
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/lib/WebGUI/Test.pm
View file

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