summaryrefslogtreecommitdiffstats
path: root/RPM4
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-01-02 16:18:17 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-01-02 16:18:17 +0000
commitd4b8b2f4e10450413ebafb175db6a5a17d2f0b9e (patch)
tree4e1b181e8cc60fa60b10906b1ecfc07a972e20e3 /RPM4
parentd2d5c9be83a55bd949e57590889c3601014a9b55 (diff)
downloadperl-RPM4-d4b8b2f4e10450413ebafb175db6a5a17d2f0b9e.tar
perl-RPM4-d4b8b2f4e10450413ebafb175db6a5a17d2f0b9e.tar.gz
perl-RPM4-d4b8b2f4e10450413ebafb175db6a5a17d2f0b9e.tar.bz2
perl-RPM4-d4b8b2f4e10450413ebafb175db6a5a17d2f0b9e.tar.xz
perl-RPM4-d4b8b2f4e10450413ebafb175db6a5a17d2f0b9e.zip
(Spec_sources, Spec_sources_url) fix unused parameter with rpm-4.9.x
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@171 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4')
-rw-r--r--RPM4/src/RPM4.xs4
1 files changed, 4 insertions, 0 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 2cf9e36..d72b60a 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2912,6 +2912,8 @@ Spec_sources(spec, is = 0)
#ifdef RPM4_9_0
rpmSpecSrcIter iter = rpmSpecSrcIterInit(spec);
while ((srcPtr = rpmSpecSrcIterNext(iter)) != NULL) {
+ if (is && !(rpmSpecSrcFlags(srcPtr) & is))
+ continue;
XPUSHs(sv_2mortal(newSVpv(rpmSpecSrcFilename(srcPtr, 0), 0)));
}
#else
@@ -2936,6 +2938,8 @@ Spec_sources_url(spec, is = 0)
#ifdef RPM4_9_0
rpmSpecSrcIter iter = rpmSpecSrcIterInit(spec);
while ((srcPtr = rpmSpecSrcIterNext(iter)) != NULL) {
+ if (is && !(rpmSpecSrcFlags(srcPtr) & is))
+ continue;
XPUSHs(sv_2mortal(newSVpv(rpmSpecSrcFilename(srcPtr, 1), 0)));
}
#else