fix automatic module loading

This commit is contained in:
Graham Knop 2007-10-04 18:29:51 +00:00
parent 2457c88afa
commit 183242a6ce

View file

@ -1335,14 +1335,13 @@ Loads an asset module if it's not already in memory. This is a class method. Ret
=cut =cut
sub loadModule { sub loadModule {
my ($session, $className) = @_; my ($class, $session, $className) = @_;
my $cmd = "use ".$className; (my $module = $className . '.pm') =~ s{::|'}{/}g;
eval ($cmd); if (eval { require $module; 1 }) {
if ($@) { return $className;
$session->errorHandler->error("Couldn't compile asset package: ".$className.". Root cause: ".$@); }
return undef; $session->errorHandler->error("Couldn't compile asset package: ".$className.". Root cause: ".$@);
} return;
return $className;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------