summaryrefslogtreecommitdiffstats
path: root/RPM4/src/RPM4.xs
diff options
context:
space:
mode:
authornanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2007-07-20 08:07:42 +0000
committernanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2007-07-20 08:07:42 +0000
commit21497f8d0da9b9884ed879907cf223c401008393 (patch)
tree203224a4fb8ad73e610436cc21c6997868433feb /RPM4/src/RPM4.xs
parent9509c87e03c67749f953699f0f0f0b1e1e6c0e08 (diff)
downloadperl-RPM4-21497f8d0da9b9884ed879907cf223c401008393.tar
perl-RPM4-21497f8d0da9b9884ed879907cf223c401008393.tar.gz
perl-RPM4-21497f8d0da9b9884ed879907cf223c401008393.tar.bz2
perl-RPM4-21497f8d0da9b9884ed879907cf223c401008393.tar.xz
perl-RPM4-21497f8d0da9b9884ed879907cf223c401008393.zip
- fix spec->source ignoring everything
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@133 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/src/RPM4.xs')
-rw-r--r--RPM4/src/RPM4.xs1
1 files changed, 1 insertions, 0 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 057617d..8fa3bff 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2886,6 +2886,7 @@ Spec_sources(spec, is = 0)
PPCODE:
for (srcPtr = spec->sources; srcPtr != NULL; srcPtr = srcPtr->next) {
if (is && !(srcPtr->flags & is))
+ continue;
XPUSHs(sv_2mortal(newSVpv(srcPtr->source, 0)));
}