aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-12-11 11:27:06 +0000
committerFrancois Pons <fpons@mandriva.com>2002-12-11 11:27:06 +0000
commitccd1e1188079c523a84c5a3a6806d21669539e21 (patch)
tree14d202083d278745470dcf518c3b204841425cdc /URPM.xs
parentdf710ae6593cff2d17e7bcfcee2e74e6b928b891 (diff)
downloadperl-URPM-ccd1e1188079c523a84c5a3a6806d21669539e21.tar
perl-URPM-ccd1e1188079c523a84c5a3a6806d21669539e21.tar.gz
perl-URPM-ccd1e1188079c523a84c5a3a6806d21669539e21.tar.bz2
perl-URPM-ccd1e1188079c523a84c5a3a6806d21669539e21.tar.xz
perl-URPM-ccd1e1188079c523a84c5a3a6806d21669539e21.zip
0.80-2mdk
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs34
1 files changed, 14 insertions, 20 deletions
diff --git a/URPM.xs b/URPM.xs
index 721724f..17f97e2 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1802,17 +1802,12 @@ Db_traverse(db,callback)
pkg->flag = FLAG_ID_INVALID | FLAG_NO_HEADER_FREE;
pkg->h = header;
- ENTER;
- SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), "URPM::Package", pkg)));
PUTBACK;
call_sv(callback, G_DISCARD | G_SCALAR);
pkg->h = 0; /* avoid using it anymore, in case it has been copied inside callback */
-
- FREETMPS;
- LEAVE;
}
++count;
}
@@ -1868,17 +1863,12 @@ Db_traverse_tag(db,tag,names,callback)
pkg->flag = FLAG_ID_INVALID | FLAG_NO_HEADER_FREE;
pkg->h = header;
- ENTER;
- SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), "URPM::Package", pkg)));
PUTBACK;
call_sv(callback, G_DISCARD | G_SCALAR);
pkg->h = 0; /* avoid using it anymore, in case it has been copied inside callback */
-
- FREETMPS;
- LEAVE;
}
++count;
}
@@ -2313,7 +2303,7 @@ Urpm_parse_hdlist(urpm, filename, ...)
char *s = SvPV(ST(i), len);
if (len == 7 && !memcmp(s, "packing", 7)) {
- packing = SvIV(ST(i + 1));
+ packing = SvIV(ST(i+1));
} else if (len == 8 && !memcmp(s, "callback", 8)) {
callback = ST(i+1);
}
@@ -2346,21 +2336,25 @@ Urpm_parse_hdlist(urpm, filename, ...)
sv_pkg = sv_setref_pv(newSVpv("", 0), "URPM::Package",
_pkg = memcpy(malloc(sizeof(struct s_Package)), &pkg, sizeof(struct s_Package)));
if (callback != NULL) {
+ int count;
+
/* now, a callback will be called for sure */
- dSP;
+ ENTER;
+ SAVETMPS;
PUSHMARK(sp);
XPUSHs(urpm);
XPUSHs(sv_pkg);
PUTBACK;
- if (call_sv(callback, G_SCALAR) == 1) {
- SPAGAIN;
- if (!POPi) {
- /* package should not be added in depslist, so we free it */
- SvREFCNT_dec(sv_pkg);
- sv_pkg = NULL;
- }
- PUTBACK;
+ count = call_sv(callback, G_SCALAR);
+ SPAGAIN;
+ if (count == 1 && !POPi) {
+ /* package should not be added in depslist, so we free it */
+ SvREFCNT_dec(sv_pkg);
+ sv_pkg = NULL;
}
+ PUTBACK;
+ FREETMPS;
+ LEAVE;
}
if (sv_pkg) {
if (provides) {