summaryrefslogtreecommitdiffstats
path: root/RPM4
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-06-15 16:38:30 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-06-15 16:38:30 +0000
commite7739438580e30fc9eb20ff446a7b9dc6c478015 (patch)
treeba50b5be80939b5f0ea58f369523b2dee84dcb1a /RPM4
parentf83fba3cf29f5da35d8638f837fc49094bf9f160 (diff)
downloadperl-RPM4-e7739438580e30fc9eb20ff446a7b9dc6c478015.tar
perl-RPM4-e7739438580e30fc9eb20ff446a7b9dc6c478015.tar.gz
perl-RPM4-e7739438580e30fc9eb20ff446a7b9dc6c478015.tar.bz2
perl-RPM4-e7739438580e30fc9eb20ff446a7b9dc6c478015.tar.xz
perl-RPM4-e7739438580e30fc9eb20ff446a7b9dc6c478015.zip
(Header_fullname) get_arch() already handle SRPMs
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@208 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4')
-rw-r--r--RPM4/src/RPM4.xs10
1 files changed, 2 insertions, 8 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 5e20da6..2a1f78b 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -1219,7 +1219,7 @@ Header_fullname(h)
name,
version,
release,
- headerIsEntry(h, RPMTAG_SOURCERPM) ? arch : "src"
+ arch
));
}
} else if (gimme == G_ARRAY) {
@@ -1227,13 +1227,7 @@ Header_fullname(h)
mPUSHs(newSVpv(name, 0));
mPUSHs(newSVpv(version, 0));
mPUSHs(newSVpv(release, 0));
- if (ix != 1) {
- if (!headerIsEntry(h, RPMTAG_SOURCERPM)) {
- mPUSHs(newSVpv("src", 0));
- } else {
- mPUSHs(newSVpv(arch, 0));
- }
- }
+ mPUSHs(newSVpv(arch, 0));
}
}