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

small fix to regex for asset class names

Browse source
This commit is contained in:
Graham Knop 2009-08-11 22:30:18 +00:00
parent e836103e5b
commit 686d79d76d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Asset.pm
View file

@ -1662,10 +1662,10 @@ Loads an asset module if it's not already in memory. This is a class method. Ret
sub loadModule { sub loadModule {
my ($class, $session, $className) = @_; my ($class, $session, $className) = @_;
if ($className !~ /^WebGUI::Asset(?:$|::)/ ) { if ($className !~ /^WebGUI::Asset(?:::\w+)*$/ ) {
return undef; return undef;
} }
(my $module = $className . '.pm') =~ s{::|'}{/}g; (my $module = $className . '.pm') =~ s{::}{/}g;
if (eval { require $module; 1 }) { if (eval { require $module; 1 }) {
return $className; return $className;
} }