X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FSuggestionEngine.t;h=c8c981fa60a9f46c8c333fdbe71623a96f06ed18;hb=b168f4a2e9a03ed56ce857353d4dde940980caba;hp=eed6fe85259deb8fa9cbec2c32944a7873510406;hpb=81ee945a580189e79a268f60d9e7638e92e85f26;p=srvgit diff --git a/t/SuggestionEngine.t b/t/SuggestionEngine.t index eed6fe8525..c8c981fa60 100755 --- a/t/SuggestionEngine.t +++ b/t/SuggestionEngine.t @@ -13,7 +13,7 @@ BEGIN { my $plugindir = File::Spec->rel2abs('Koha/SuggestionEngine/Plugin'); opendir(my $dh, $plugindir); -my @installed_plugins = map { ( /\.pm$/ && -f "$plugindir/$_" && s/\.pm$// ) ? "Koha::SuggestionEngine::Plugin::$_" : () } readdir($dh); +my @installed_plugins = map { my $p = $_; ( $p =~ /\.pm$/ && -f "$plugindir/$p" && $p =~ s/\.pm$// ) ? "Koha::SuggestionEngine::Plugin::$p" : () } readdir($dh); my @available_plugins = Koha::SuggestionEngine::AvailablePlugins(); foreach my $plugin (@installed_plugins) {