diff options
author | Oliver Tappe | 2008-02-23 15:46:39 +0100 |
---|---|---|
committer | Oliver Tappe | 2008-02-23 15:46:39 +0100 |
commit | 80eef26561de7b42e09124bf5b0c368876998c9c (patch) | |
tree | b78c267e785a1b97c5fe6d1238a227a61c57669e /os-plugins | |
parent | * updated busybox from 1.8.2 to 1.9.1 (diff) | |
download | core-80eef26561de7b42e09124bf5b0c368876998c9c.tar.gz core-80eef26561de7b42e09124bf5b0c368876998c9c.tar.xz core-80eef26561de7b42e09124bf5b0c368876998c9c.zip |
* Instead of giving up when a plugin folder does not contain the corresponding
perl module, it is now simply skipped (such that all other plugins are
still available).
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1569 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'os-plugins')
-rw-r--r-- | os-plugins/OpenSLX/OSPlugin/Roster.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/os-plugins/OpenSLX/OSPlugin/Roster.pm b/os-plugins/OpenSLX/OSPlugin/Roster.pm index 791865f1..8bc2c305 100644 --- a/os-plugins/OpenSLX/OSPlugin/Roster.pm +++ b/os-plugins/OpenSLX/OSPlugin/Roster.pm @@ -118,6 +118,14 @@ sub _init foreach my $modulePath (glob("$pluginPath/*")) { next if $modulePath !~ m{/([^/]+)$}; my $pluginName = $1; + if (!-e "$modulePath/OpenSLX/OSPlugin/$pluginName.pm") { + vlog( + 1, + "skipped plugin-folder $modulePath as no corresponding perl " + . "module could be found." + ); + next; + } my $class = "OpenSLX::OSPlugin::$pluginName"; vlog(2, "loading plugin $class from path '$modulePath'"); my $plugin = instantiateClass($class, { pathToClass => $modulePath }); |