silent perl_checker

1 files 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;