|
Lines 250-256
sub scan {
Link Here
|
| 250 |
for (my $i=0; $i <= $#control; $i++) { |
250 |
for (my $i=0; $i <= $#control; $i++) { |
| 251 |
$_ = $control[$i]; |
251 |
$_ = $control[$i]; |
| 252 |
chomp; |
252 |
chomp; |
| 253 |
if (/^(\w.*?):\s+(.*)/) { |
253 |
if (/^(\w.*?):\s*(.*)/) { |
| 254 |
# Really old debs might have oddly capitalized |
254 |
# Really old debs might have oddly capitalized |
| 255 |
# field names. |
255 |
# field names. |
| 256 |
$field=ucfirst(lc($1)); |
256 |
$field=ucfirst(lc($1)); |
|
Lines 263-269
sub scan {
Link Here
|
| 263 |
# Handle extended description. |
263 |
# Handle extended description. |
| 264 |
s/^ //g; |
264 |
s/^ //g; |
| 265 |
$_="" if $_ eq "."; |
265 |
$_="" if $_ eq "."; |
| 266 |
$description.="$_\n"; |
266 |
$description .= $_; |
|
|
267 |
} |
| 268 |
elsif ($field eq 'description') { |
| 269 |
s/^\s*//; |
| 270 |
$description .= "$_\n" if $_; |
| 267 |
} |
271 |
} |
| 268 |
} |
272 |
} |
| 269 |
$this->description($description); |
273 |
$this->description($description); |
