From bf3df848123fdb323ba6f5bc3ad351a8a2328609 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 22 Jun 2007 12:11:06 +0000 Subject: call genhdlist2 with the good argument --- gendistrib | 6 +++--- 1 file 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"; } -- cgit v1.2.1