aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xgendistrib6
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";
}