1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 3045fd5c6..b0a6fef1e 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -199,7 +199,7 @@ sub detect {
 		}
 	    }
 	}
-	@res = map { $_->{configured} ? () : $_; } @res;
+	@res = grep { ! $_->{configured} } @res;
     }
     return @res;
 }