From 39b16a6249eb865a2319a8e3cb1e4270e6fec539 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 10 Mar 2000 19:56:05 +0000
Subject: *** empty log message ***

---
 perl-install/c/stuff.xs.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'perl-install/c/stuff.xs.pm')

diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index bc405af1d..cdaa2d292 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -527,7 +527,16 @@ rpmtransSetScriptFd(trans, fd)
   void *trans
   int fd
   CODE:
-  rpmtransSetScriptFd(trans, fdDup(fd));
+  /* this code core dumps on install...
+  static FD_t scriptFd = NULL;
+  if (scriptFd == NULL) scriptFd = fdNew("");
+  fdSetFdno(scriptFd, fd);
+  rpmtransSetScriptFd(trans, scriptFd);
+  */
+  static FD_t scriptFd = NULL;
+  if (scriptFd != NULL) fdClose(scriptFd);
+  scriptFd = fdDup(fd);
+  rpmtransSetScriptFd(trans, scriptFd);
 
 void
 rpmRunTransactions(trans, callbackOpen, callbackClose, callbackMessage, force)
-- 
cgit v1.2.1