diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-14 17:00:35 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-14 17:00:35 +0000 |
| commit | bf50fcc4bf3611a378b186b310984b449941bfbc (patch) | |
| tree | 6ba334469777c47d2e825e1f099f350f1ef6360b | |
| parent | e1102bacc0d35e9b3ae7dffd835da36ea57f40a6 (diff) | |
| download | perl-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
| -rw-r--r-- | RPM4/src/RPM4.xs | 7 |
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_ |