version 1.17, 2000/12/14 18:38:37
|
version 1.18, 2000/12/21 14:38:31
|
Line 181 sub make_file_list {
|
Line 181 sub make_file_list {
|
my @allfiles=keys %{$info{'LOCATION'}{$distribution}}; |
my @allfiles=keys %{$info{'LOCATION'}{$distribution}}; |
foreach my $d (@$dirs) { |
foreach my $d (@$dirs) { |
# set other values |
# set other values |
|
$description.=<<END |
|
BinaryRoot/$d |
|
END |
my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'}; |
my $dirdescription=$info{'DIRECTORY'}{$distribution}{$d}{'DESCRIPTION'}; |
$dirdescription="(" . $dirdescription . ")" if $dirdescription; |
$dirdescription="(" . $dirdescription . ")" if $dirdescription; |
# find files that are contained in this directory |
# find files that are contained in this directory |