Bug 21395: Make perlcritic happy

[koha.git] / t / SuggestionEngine.t

diff --git a/t/SuggestionEngine.t b/t/SuggestionEngine.t
index eed6fe8..c8c981f 100755 (executable)
--- 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) {