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

use Module::Find instead of enumerating over the files

Browse source
This commit is contained in:
Graham Knop 2008-09-17 15:38:01 +00:00
parent 568fd0b608
commit a2757494af
6 changed files with 21 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/AssetLineage.pm
View file

@ -564,11 +564,8 @@ sub getLineageSql {
my $tables = "asset left join assetData on asset.assetId=assetData.assetId ";
if (exists $rules->{joinClass}) {
my $className = $rules->{joinClass};
my $file = $className;
$file =~ s{::}{/}g;
$file .= '.pm';
if (!exists $INC{ $file }) { ##Alread loaded?
eval{ require $file };
(my $module = $className . '.pm') =~ s{::|'}{/}g;
if ( ! eval { require $module; 1 }) {
$self->session->errorHandler->fatal("Couldn't compile asset package: ".$className.". Root cause: ".$@) if ($@);
}
foreach my $definition (@{$className->definition($self->session)}) {