diff --git a/Alien/Package/Rpm.pm b/Alien/Package/Rpm.pm index ac9dbdd..9f0e93d 100644 --- a/Alien/Package/Rpm.pm +++ b/Alien/Package/Rpm.pm @@ -83,14 +83,15 @@ sub scan { SUMMARY DESCRIPTION COPYRIGHT PREFIXES}, keys(%fieldtrans)) { my $value=$this->runpipe(0, "LANG=C rpm -qp --queryformat \%{$field} $file"); + my $key; if (exists $fieldtrans{$field}) { - $field=$fieldtrans{$field}; + $key=$fieldtrans{$field}; } else { - $field=lc($field); + $key=lc($field); } $value='' if $value eq '(none)'; - $this->$field($value); + $this->$key($value); } # Get the conffiles list. diff --git a/debian/changelog b/debian/changelog index 709cae8..27d47fb 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,9 +1,9 @@ -alien (8.70) UNRELEASED; urgency=low +alien (8.70) unstable; urgency=low * Extract prefixes field before extracting scripts so that RPM_INSTALL_PREFIX gets set. - -- Joey Hess Wed, 12 Mar 2008 11:04:06 -0400 + -- Joey Hess Wed, 12 Mar 2008 11:05:40 -0400 alien (8.69) unstable; urgency=low