foreach my $depend (@{$pkg->{depends}}) {
print "\t\tdepends PACKAGE_$depend\n";
}
+ print "\t\thelp\n";
+ print $pkg->{description};
print "\n"
}
}
push @{$category{$1}->{$src}}, $pkg;
};
$line =~ /^Description: \s*(.*)\s*$/ and do {
- my $desc = $1;
+ my $desc = "\t\t$1\n\n";
my $line;
- while (<>) {
- last if /^@@/;
- $desc .= $1;
+ while ($line = <>) {
+ last if $line =~ /^@@/;
+ $desc .= "\t\t$line";
}
$pkg->{description} = $desc;
}