- /^Description: \s*(.*)\s*$/ and do {
- my $desc = "\t\t$1\n\n";
- my $line;
- while ($line = <>) {
- last if $line =~ /^@@/;
- $desc .= "\t\t$line";
- }
- $pkg->{description} = $desc;
- };
- /^Config: \s*(.*)\s*$/ and do {
- my $conf = "$1\n";
- my $line;
- while ($line = <>) {
- last if $line =~ /^@@/;
- $conf .= "$line";
- }
- $pkg->{config} = $conf;
- };
+ /^Description: \s*(.*)\s*$/ and $pkg->{description} = "\t\t $1\n". get_multiline("\t\t ");
+ /^Config: \s*(.*)\s*$/ and $pkg->{config} = "$1\n".get_multiline();