diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-01-02 16:18:32 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-01-02 16:18:32 +0000 |
| commit | 238dce63567daf6c4159a88fa1f6ce0ba9b70891 (patch) | |
| tree | 6b58741cabbc92546cc88646a92bbaa253876636 /RPM4/src | |
| parent | 5890ea8f1c8bc2869ad154abadb021337d0220e3 (diff) | |
| download | perl-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')
| -rw-r--r-- | RPM4/src/RPM4.xs | 7 |
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 |