summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2015-08-01 15:37:00 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2015-08-01 15:37:00 +0000
commit9db2f050403ba1db64462a71dda891e185ccf4e6 (patch)
treea6215c71c43c8fc6d37b3a770231cc83b3e467e6
parent858104a7545313b63c9480f8cdb7752f82884bbc (diff)
downloadperl-RPM4-9db2f050403ba1db64462a71dda891e185ccf4e6.tar
perl-RPM4-9db2f050403ba1db64462a71dda891e185ccf4e6.tar.gz
perl-RPM4-9db2f050403ba1db64462a71dda891e185ccf4e6.tar.bz2
perl-RPM4-9db2f050403ba1db64462a71dda891e185ccf4e6.tar.xz
perl-RPM4-9db2f050403ba1db64462a71dda891e185ccf4e6.zip
drop support for rpm > 4.9.0
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@254 971eb68f-4bfb-0310-8326-d2484c010a4c
-rw-r--r--RPM4/NEWS2
-rw-r--r--RPM4/src/Makefile.PL2
-rw-r--r--RPM4/src/RPM4.xs102
3 files changed, 2 insertions, 104 deletions
diff --git a/RPM4/NEWS b/RPM4/NEWS
index 6a6e043..300d970 100644
--- a/RPM4/NEWS
+++ b/RPM4/NEWS
@@ -1,3 +1,5 @@
+- drop support for rpm > 4.9.0
+
Version 0.34 - 15 September 2014
- fix build with RCs of rpm
diff --git a/RPM4/src/Makefile.PL b/RPM4/src/Makefile.PL
index b0e4315..7296a07 100644
--- a/RPM4/src/Makefile.PL
+++ b/RPM4/src/Makefile.PL
@@ -31,8 +31,6 @@ print $FH ' * $Id$' . "\n";
print $FH " */\n\n";
print $FH "#ifndef RPMVERSION_H\n#define RPMVERSION_H\n\n";
foreach (qw(
- 4.8.0
- 4.8.1
4.9.0
4.9.1
4.9.1.1
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 3f219eb..5cbb666 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -411,9 +411,6 @@ void _newspec(rpmts ts, char * filename, SV * svanyarch, SV * svforce) {
if (force)
flags |= RPMSPEC_FORCE;
spec = rpmSpecParse(filename, flags, NULL);
-#else
- if (!parseSpec(ts, filename, "/", NULL ,0, NULL, NULL, anyarch, force))
- spec = rpmtsSetSpec(ts, NULL);
#endif
#ifdef HHACK
} else {
@@ -439,8 +436,6 @@ int _specbuild(rpmts ts, rpmSpec spec, SV * sv_buildflags) {
BTA_t flags = calloc(1, sizeof(*flags));
flags->buildAmount = buildflags;
return rpmSpecBuild(spec, flags);
-#else
- return buildSpec(ts, spec, buildflags, 0);
#endif
}
@@ -488,16 +483,6 @@ int _headername_vs_dep(Header h, rpmds dep, int nopromote) {
int rpmsign(char *passphrase, const char *rpm) {
#ifdef RPM4_9_0
return rpmPkgSign(rpm, NULL, passphrase);
-#else
- QVA_t qva = &rpmQVKArgs;
- ARGV_t file = NULL;
-
- argvAdd(&file, rpm);
-
- qva->qva_mode = RPMSIGN_ADD_SIGNATURE;
- qva->passPhrase = passphrase;
-
- return rpmcliSign(NULL, qva, file);
#endif
}
@@ -778,8 +763,6 @@ buildhost()
oneshot = 1;
}
mXPUSHs(newSVpv(hostname,0));
-#else
- mXPUSHs(newSVpv(buildHost(),0));
#endif
# Dump to file functions:
@@ -1487,10 +1470,6 @@ Ts_injectheader(db, header)
CODE:
#ifdef RPM4_9_0
croak("injectheader>rpmdbAdd exists only in rpm < 4.9; unused anyway");
-#else
- rpmdb rdb;
- rdb = rpmtsGetRdb(db);
- RETVAL = rpmdbAdd(rdb, 0, header, db, NULL);
#endif
OUTPUT:
RETVAL
@@ -1509,8 +1488,6 @@ Ts_deleteheader(db, sv_offset)
#ifdef RPM4_9_0
croak("deleteheader exists only in rpm < 4.9; unused anyway");
RETVAL = 0;
-#else
- RETVAL = rpmdbRemove(rdb, 0, offset, db, NULL);
#endif
} else
RETVAL = 1;
@@ -1541,8 +1518,6 @@ Ts_traverse(ts, callback = NULL, sv_tagname = NULL, sv_tagvalue = NULL, keylen =
#endif
#ifdef RPM4_9_0
ts = rpmtsLink(ts);
-#else
- ts = rpmtsLink(ts, "RPM4 Db::traverse()");
#endif
if (sv_tagname == NULL || !SvOK(sv_tagname)) {
tag = RPMDBI_PACKAGES; /* Assume search into installed packages */
@@ -1572,8 +1547,6 @@ Ts_traverse(ts, callback = NULL, sv_tagname = NULL, sv_tagvalue = NULL, keylen =
#ifdef RPM4_9_0
//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
}
while (rc && ((header = rpmdbNextIterator(mi)) != NULL)) {
@@ -1748,8 +1721,6 @@ Ts_traverse_transaction(ts, callback, type = 0)
CODE:
#ifdef RPM4_9_0
ts = rpmtsLink(ts);
-#else
- ts = rpmtsLink(ts, "RPM4 Db::traverse_transaction()");
#endif
pi = rpmtsiInit(ts);
RETVAL = 0;
@@ -1809,8 +1780,6 @@ Ts_transrun(ts, callback, ...)
CODE:
#ifdef RPM4_9_0
ts = rpmtsLink(ts);
-#else
- ts = rpmtsLink(ts, "RPM4 Db::transrun()");
#endif
if (!SvOK(callback)) { /* undef value */
rpmtsSetNotifyCallback(ts,
@@ -2587,8 +2556,6 @@ Spec_new(perlclass, specfile = NULL, ...)
ts = (rpmts)SvIV((SV*)SvRV(ST(i)));
#ifdef RPM4_9_0
ts = rpmtsLink(ts);
-#else
- ts = rpmtsLink(ts, bless_spec);
#endif
} else {
croak( "transaction is not a blessed SV reference" );
@@ -2621,8 +2588,6 @@ Spec_DESTROY(spec)
#endif
#ifdef RPM4_9_0
rpmSpecFree(spec);
-#else
- freeSpec(spec);
#endif
void
@@ -2632,10 +2597,6 @@ Spec_srcheader(spec)
#ifdef RPM4_9_0
Header header = rpmSpecSourceHeader(spec);
mXPUSHs(sv_setref_pv(newSVpvs(""), bless_header, (void *)headerLink(header)));
-#else
- if ( ! spec->sourceHeader)
- initSourceHeader(spec);
- mXPUSHs(sv_setref_pv(newSVpvs(""), bless_header, (void *)headerLink(spec->sourceHeader)));
#endif
void
@@ -2648,9 +2609,6 @@ Spec_binheader(spec)
rpmSpecPkgIter iter = rpmSpecPkgIterInit(spec);
while ((pkg = rpmSpecPkgIterNext(iter)) != NULL)
mXPUSHs(sv_setref_pv(newSVpvs(""), bless_header, (void *)headerLink(rpmSpecPkgHeader(pkg))));
-#else
- for (pkg = spec->packages; pkg != NULL; pkg = pkg->next)
- mXPUSHs(sv_setref_pv(newSVpvs(""), bless_header, (void *)headerLink(pkg->header)));
#endif
void
@@ -2659,11 +2617,7 @@ Spec_srcrpm(spec)
PREINIT:
Header header = NULL;
PPCODE:
-#ifdef RPM4_9_0
header = rpmSpecSourceHeader(spec);
-#else
- header = spec->packages->header;
-#endif
struct rpmtd_s td;
int no_src = headerGet(header, RPMTAG_NOSOURCE, &td, HEADERGET_MINMEM);
char *nvr = headerGetAsString(header, RPMTAG_NVR);
@@ -2684,17 +2638,11 @@ Spec_binrpm(spec)
#ifdef RPM4_9_0
rpmSpecPkgIter iter = rpmSpecPkgIterInit(spec);
while ((pkg = rpmSpecPkgIterNext(iter)) != NULL) {
-#else
- for(pkg = spec->packages; pkg != NULL; pkg = pkg->next) {
- if (pkg->fileList == NULL)
- continue;
#endif
/* headerCopyTags(h, pkg->header, copyTags); */
binFormat = rpmGetPath("%{_rpmfilename}", NULL);
#ifdef RPM4_9_0
header = rpmSpecSourceHeader(spec);
-#else
- header = pkg->header;
#endif
binRpm = headerFormat(header, binFormat, NULL);
free(binFormat);
@@ -2715,19 +2663,11 @@ Spec_check(spec, ts = NULL)
if (ts)
#ifdef RPM4_9_0
ts = rpmtsLink(ts);
-#else
- ts = rpmtsLink(ts, "Spec_check");
#endif
else
ts = rpmtsCreate();
-#ifndef RPM4_9_0
- if ( ! spec->sourceHeader)
- initSourceHeader(spec);
-#endif
#ifdef RPM4_9_0
Header header = rpmSpecSourceHeader(spec);
-#else
- Header header = spec->sourceHeader;
#endif
if (!headerIsEntry(header, RPMTAG_REQUIRENAME)
&& !headerIsEntry(header, RPMTAG_CONFLICTNAME))
@@ -2764,8 +2704,6 @@ Spec_specfile(spec)
CODE:
#ifdef RPM4_9_0
croak("specfile exists only in rpm < 4.9; unused anyway");
-#else
- RETVAL = spec->specFile;
#endif
OUTPUT:
RETVAL
@@ -2777,8 +2715,6 @@ Spec_sources(spec, is = 0)
PREINIT:
#ifdef RPM4_9_0
rpmSpecSrc srcPtr;
-#else
- struct Source * srcPtr;
#endif
PPCODE:
#ifdef RPM4_9_0
@@ -2788,12 +2724,6 @@ Spec_sources(spec, is = 0)
continue;
mXPUSHs(newSVpv(rpmSpecSrcFilename(srcPtr, 0), 0));
}
-#else
- for (srcPtr = spec->sources; srcPtr != NULL; srcPtr = srcPtr->next) {
- if (is && !(srcPtr->flags & is))
- continue;
- mXPUSHs(newSVpv(srcPtr->source, 0));
- }
#endif
void
@@ -2803,8 +2733,6 @@ Spec_sources_url(spec, is = 0)
PREINIT:
#ifdef RPM4_9_0
rpmSpecSrc srcPtr;
-#else
- struct Source * srcPtr;
#endif
PPCODE:
#ifdef RPM4_9_0
@@ -2814,12 +2742,6 @@ Spec_sources_url(spec, is = 0)
continue;
mXPUSHs(newSVpv(rpmSpecSrcFilename(srcPtr, 1), 0));
}
-#else
- for (srcPtr = spec->sources; srcPtr != NULL; srcPtr = srcPtr->next) {
- if (is && !(srcPtr->flags & is))
- continue;
- mXPUSHs(newSVpv(srcPtr->fullSource, 0));
- }
#endif
void
@@ -2829,18 +2751,6 @@ Spec_icon(spec)
PPCODE:
#ifdef RPM4_9_0
croak("icon exists only in rpm < 4.9; unused anyway");
-#else
- Package pkg;
- for (pkg = spec->packages; pkg != NULL; pkg = pkg->next) {
- char * dest = NULL;
- int len;
- if (!pkg->icon)
- continue;
- len = strlen(pkg->icon->source);
- dest = malloc(len);
- memcpy(dest, pkg->icon->source, len);
- mXPUSHs(newSVpv(dest, len));
- }
#endif
void
@@ -2850,18 +2760,6 @@ Spec_icon_url(spec)
PPCODE:
#ifdef RPM4_9_0
croak("icon_url exists only in rpm < 4.9; unused anyway; unused anyway");
-#else
- Package pkg;
- for (pkg = spec->packages; pkg != NULL; pkg = pkg->next) {
- char * dest = NULL;
- int len;
- if (!pkg->icon)
- continue;
- len = strlen(pkg->icon->fullSource);
- dest = malloc(len);
- memcpy(dest, pkg->icon->fullSource, len);
- mXPUSHs(newSVpv(dest, len));
- }
#endif
MODULE = RPM4 PACKAGE = RPM4::Db::_Problems PREFIX = ps_