summaryrefslogtreecommitdiffstats
path: root/RPM4/src
diff options
context:
space:
mode:
authornanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2005-12-14 17:00:35 +0000
committernanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2005-12-14 17:00:35 +0000
commitbf50fcc4bf3611a378b186b310984b449941bfbc (patch)
tree6ba334469777c47d2e825e1f099f350f1ef6360b /RPM4/src
parente1102bacc0d35e9b3ae7dffd835da36ea57f40a6 (diff)
downloadperl-RPM4-bf50fcc4bf3611a378b186b310984b449941bfbc.tar
perl-RPM4-bf50fcc4bf3611a378b186b310984b449941bfbc.tar.gz
perl-RPM4-bf50fcc4bf3611a378b186b310984b449941bfbc.tar.bz2
perl-RPM4-bf50fcc4bf3611a378b186b310984b449941bfbc.tar.xz
perl-RPM4-bf50fcc4bf3611a378b186b310984b449941bfbc.zip
- use new rpmlib function, Have I already rpm sucks?
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@53 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/src')
-rw-r--r--RPM4/src/RPM4.xs7
1 files changed, 7 insertions, 0 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 77198e7..c20bb4f 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2054,13 +2054,16 @@ void
rpmlibdep()
PREINIT:
rpmds Dep = NULL;
+#ifndef RPM4_4_3
rpmds next;
const char ** provNames;
int * provFlags;
const char ** provVersions;
int num = 0;
int i;
+#endif
PPCODE:
+#ifndef RPM4_4_3
num = rpmGetRpmlibProvides(&provNames, &provFlags, &provVersions);
for (i = 0; i < num; i++) {
#ifdef HDLISTDEBUG
@@ -2079,6 +2082,10 @@ rpmlibdep()
#endif
}
}
+#else
+ if (!rpmdsRpmlib(&Dep, NULL))
+ XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), bless_rpmds, Dep)));
+#endif
MODULE = RPM4 PACKAGE = RPM4::Header::Dependencies PREFIX = Dep_