From 5368641a79b53f4b9c1823509de774a559cb3a12 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 20 Nov 2000 18:57:37 +0000
Subject: removed logs.

---
 perl-install/c/stuff.xs.pm | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'perl-install/c')

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;
-- 
cgit v1.2.1