diff options
| -rwxr-xr-x | genhdlist2 | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |