silent perl_checker

1 files changed, 1 insertions, 1 deletions

diff --git a/urpmf b/urpmf
index af1cdc10..a07a6066 100755
--- a/urpmf
+++ b/urpmf
@@ -260,7 +260,7 @@ my %needed_media_info = map { $_ => 1 } grep {
     int(grep { $usedtags{$_} } @$l);
 } keys %tags_per_media_info;
 
-my @needed_xml_info = map { s/xml_info__// ? $_ : () } keys %needed_media_info;
+my @needed_xml_info = map { s/xml_info__// ? $_ : @{[]} } keys %needed_media_info;
 if (@needed_xml_info > 1) {
     # we don't handle parallel parsing of xml files, default to hdlist
     $needed_media_info{hdlist} = 1;