diff options
Diffstat (limited to 'perl-install/c')
| -rw-r--r-- | perl-install/c/stuff.xs.pm | 11 |
1 files changed, 10 insertions, 1 deletions
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) |