From cec778ede7d057eec7b8051796e31399528c1dd6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 13 Feb 2003 10:40:22 +0000
Subject: no comment

---
 perl-install/scanner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
-- 
cgit v1.2.1