diff options
Diffstat (limited to 'gendistrib')
| -rwxr-xr-x | gendistrib | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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"; } |