summaryrefslogtreecommitdiffstats
path: root/RPM4/src/RPM4.xs
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-01-02 16:18:32 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-01-02 16:18:32 +0000
commit238dce63567daf6c4159a88fa1f6ce0ba9b70891 (patch)
tree6b58741cabbc92546cc88646a92bbaa253876636 /RPM4/src/RPM4.xs
parent5890ea8f1c8bc2869ad154abadb021337d0220e3 (diff)
downloadperl-RPM4-238dce63567daf6c4159a88fa1f6ce0ba9b70891.tar
perl-RPM4-238dce63567daf6c4159a88fa1f6ce0ba9b70891.tar.gz
perl-RPM4-238dce63567daf6c4159a88fa1f6ce0ba9b70891.tar.bz2
perl-RPM4-238dce63567daf6c4159a88fa1f6ce0ba9b70891.tar.xz
perl-RPM4-238dce63567daf6c4159a88fa1f6ce0ba9b70891.zip
(traverse) make it usefull again with rpm-4.9
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@178 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/src/RPM4.xs')
-rw-r--r--RPM4/src/RPM4.xs7
1 files changed, 2 insertions, 5 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 6d95edb..57a8969 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -1562,9 +1562,6 @@ Ts_traverse(ts, callback = NULL, sv_tagname = NULL, sv_tagvalue = NULL, keylen =
PRINTF_CALL;
#endif
#ifdef RPM4_9_0
- croak("traverse is no more supported with rpm 4.9; unused anyway");
-#else
-#ifdef RPM4_9_0
ts = rpmtsLink(ts);
#else
ts = rpmtsLink(ts, "RPM4 Db::traverse()");
@@ -1598,7 +1595,8 @@ Ts_traverse(ts, callback = NULL, sv_tagname = NULL, sv_tagvalue = NULL, keylen =
exclude[i] = SvUV(*isv);
}
#ifdef RPM4_9_0
- rpmtsPrunedIterator(ts, exclude, av_len(av_exclude) + 1);
+ //FIXME: rpmtsPrunedIterator() is rpmlib internal only:
+ //rpmtsPrunedIterator(ts, exclude, av_len(av_exclude) + 1);
#else
rpmdbPruneIterator(mi, exclude, av_len(av_exclude) + 1, 0);
#endif
@@ -1632,7 +1630,6 @@ Ts_traverse(ts, callback = NULL, sv_tagname = NULL, sv_tagvalue = NULL, keylen =
} else
RETVAL = -1;
ts = rpmtsFree(ts);
-#endif
OUTPUT:
RETVAL