diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-11-20 18:57:37 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-11-20 18:57:37 +0000 |
| commit | 5368641a79b53f4b9c1823509de774a559cb3a12 (patch) | |
| tree | 64a401969d2698e1ba114c114190e33ef0d3b0e5 | |
| parent | a13243d40c5eb72c6a968d57f9a8b129f9be57a0 (diff) | |
| download | drakx-backup-do-not-use-5368641a79b53f4b9c1823509de774a559cb3a12.tar drakx-backup-do-not-use-5368641a79b53f4b9c1823509de774a559cb3a12.tar.gz drakx-backup-do-not-use-5368641a79b53f4b9c1823509de774a559cb3a12.tar.bz2 drakx-backup-do-not-use-5368641a79b53f4b9c1823509de774a559cb3a12.tar.xz drakx-backup-do-not-use-5368641a79b53f4b9c1823509de774a559cb3a12.zip | |
removed logs.
| -rw-r--r-- | perl-install/c/stuff.xs.pm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm index c2a8c315d..63630c89b 100644 --- a/perl-install/c/stuff.xs.pm +++ b/perl-install/c/stuff.xs.pm @@ -514,13 +514,9 @@ rpmdbNameTraverse(db, name, ...) callback = ST(2); } count = 0; - fprintf(stderr, "name traverse with %d items on name of length %d and value [%s]\n", items, strlen(name), name); mi = rpmdbInitIterator(db, RPMTAG_NAME, name, 0); - fprintf(stderr, "-- 1\n"); oldcb = rpmErrorSetCallback(rpmError_callback_empty); - fprintf(stderr, "-- 2\n"); while (h = rpmdbNextIterator(mi)) { - fprintf(stderr, "-- *\n"); if (callback != &PL_sv_undef && SvROK(callback)) { dSP; ENTER; @@ -534,11 +530,8 @@ rpmdbNameTraverse(db, name, ...) } ++count; } - fprintf(stderr, "-- 3\n"); rpmErrorSetCallback(oldcb); - fprintf(stderr, "-- 4\n"); rpmdbFreeIterator(mi); - fprintf(stderr, "-- 5\n"); RETVAL = count; OUTPUT: RETVAL @@ -710,7 +703,7 @@ rpmRunTransactions(trans, callbackOpen, callbackClose, callbackMessage, force) i = perl_call_sv(callbackOpen, G_SCALAR); SPAGAIN; if (i != 1) croak("Big trouble\n"); - i = POPi; fd = fdDup(i); close(i); + i = POPi; fd = fdDup(i); fd = fdLink(fd, "persist DrakX"); PUTBACK; return fd; |