From ab5d58eed503fe1afd214f3efb05bd8dc827b92e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 6 Sep 2014 17:19:17 +0200 Subject: silent perl_checker --- genhdlist2 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/genhdlist2 b/genhdlist2 index 0dabfe0..88ed4ba 100755 --- a/genhdlist2 +++ b/genhdlist2 @@ -113,13 +113,13 @@ sub do_it { if ($options{xml_info} eq 'auto') { $options{xml_info} = -e "$media_info_dir/info.xml$xml_info_suffix"; } - my @xml_media_info = $options{xml_info} ? ('info', 'files', 'changelog') : (); + my @xml_media_info = $options{xml_info} ? ('info', 'files', 'changelog') : @{[]}; build($urpm, \%rpms_todo, $media_info_dir, $rpms_dir, \@xml_media_info, $options{no_incremental}, $options{no_hdlist}, $xml_info_suffix, $xml_info_filter, $synthesis); build_synthesis($urpm, "$synthesis.tmp", $synthesis_filter); if (1) { - my @media_info_files = ($options{no_hdlist} ? () : 'hdlist.cz', + my @media_info_files = ($options{no_hdlist} ? @{[]} : 'hdlist.cz', "synthesis.hdlist$synthesis_suffix", map { "$_.xml$xml_info_suffix" } @xml_media_info); foreach my $name (@media_info_files) { print "replacing $media_info_dir/$name with $name.tmp\n" if $verbose >= 0; -- cgit v1.2.1