diff options
| -rwxr-xr-x | perl-install/scanner.pm | 2 |
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; } |