this should fix it.

This commit is contained in:
Matthew Wilson 2006-04-17 01:47:31 +00:00
parent 84fb7cad05
commit c64d41e5f6

View file

@ -59,6 +59,7 @@ sub AUTOLOAD {
my $self = shift;
my $name = ucfirst((split /::/, $AUTOLOAD)[-1]);
my $params = shift;
$params = {name=>$params} if ref ($params) ne "HASH";
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
if ($@) {