* Support ancient (bo-era) debs with upper-case field names. Closes: #130736

This commit is contained in:
joey
2002-01-25 04:42:41 +00:00
parent ea55014024
commit cf29615520
3 changed files with 13 additions and 1 deletions

View File

@@ -146,7 +146,9 @@ sub scan {
$_ = $control[$i];
chomp;
if (/^(\w.*?):\s+(.*)/) {
$field=$1;
# Really old debs might have oddly capitalized
# field names.
$field=ucfirst(lc($1));
if (exists $fieldtrans{$field}) {
$field=$fieldtrans{$field};
$this->$field($2);