mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

* Extract prefixes field before extracting scripts so that

Browse Source 
RPM_INSTALL_PREFIX gets set.
This commit is contained in:
Joey Hess
2008-03-12 11:05:39 -04:00
parent ac38739a74
commit 17bcd710f7
2 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Alien/Package/Rpm.pm
View File

@@ -78,18 +78,19 @@ sub scan {
POSTUN => 'postrm',
);
# These fields need no translation except case.
foreach (qw{name version release arch changelogtext summary
description copyright prefixes}) {
$fieldtrans{uc $_}=$_;
}
# Use --queryformat to pull out all the fields we need.
foreach my $field (keys(%fieldtrans)) {
$_=$this->runpipe(0, "LANG=C rpm -qp --queryformat \%{$field} $file");
$field=$fieldtrans{$field};
$_='' if $_ eq '(none)';
$this->$field($_);
foreach my $field (qw{NAME VERSION RELEASE ARCH CHANGELOGTEXT
SUMMARY DESCRIPTION COPYRIGHT PREFIXES},
keys(%fieldtrans)) {
my $value=$this->runpipe(0, "LANG=C rpm -qp --queryformat \%{$field} $file");
if (exists $fieldtrans{$field}) {
$field=$fieldtrans{$field};
}
else {
$field=lc($field);
}
$value='' if $value eq '(none)';
$this->$field($value);
}
# Get the conffiles list.