call genhdlist2 with the good argument

1 files changed, 3 insertions, 3 deletions

diff --git a/gendistrib b/gendistrib
index e469e95..7e68cb9 100755
--- a/gendistrib
+++ b/gendistrib
@@ -98,10 +98,10 @@ foreach my $m ($distrib->listmedia) {
     push @hdlists, {
         media         => $m,
         dir           => $distrib->getpath($m, 'path'),
+        path          => $path,
         descr         => $distrib->getvalue($m, 'name'),
         hdlist2       => $distrib->getfullpath($m, 'hdlist'),
         synthesis2    => $distrib->getfullpath($m, 'synthesis'),
-        thismediainfo => "$path/media_info",
         hdlist        => "$path/media_info/hdlist.cz",
         synthesis     => "$path/media_info/synthesis.hdlist.cz",
         noneedrebuild => $blind ? 0 : $distrib->check_index_sync($m, 'formedia'),
@@ -116,7 +116,7 @@ if (!-d $destinfodir) {
 
 my $infodir = $distrib->getfullpath(undef, 'infodir');
 
-foreach my $d ($infodir, map { $_->{thismediainfo} } @hdlists) {
+foreach my $d ($infodir, map { "$_->{path}/media_info" } @hdlists) {
     if (! -d $d) {
 	mkdir $d, 0755 or die qq(Can't create directory "$d": $!\n);
     }
@@ -148,7 +148,7 @@ foreach my $e (grep { !$_->{noneedrebuild} } @hdlists) {
 		       $nomd5sum || $e->{noneedredomd5} ? "--no-md5sum" : (),
 		       -e "file-deps" ? "--file-deps $file_deps" : (),
 		   );
-    my $cmd = "genhdlist2 $options $e->{thismediainfo}";
+    my $cmd = "genhdlist2 $options $e->{path}";
     print "running $cmd\n" unless $nooutput;
     system($cmd) == 0 or die "$cmd failed\n";
 }