Mercurial > pidgin.yaz
changeset 23650:d1d32f318ce9
Fix output redirection for perl plugins on win32.
| author | Daniel Atallah <daniel.atallah@gmail.com> |
|---|---|
| date | Mon, 28 Jul 2008 04:49:39 +0000 |
| parents | df9e569b8f1f |
| children | e97ff340bbf3 e81f0d1966db |
| files | libpurple/plugins/perl/perl.c |
| diffstat | 1 files changed, 18 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/libpurple/plugins/perl/perl.c Mon Jul 28 03:47:14 2008 +0000 +++ b/libpurple/plugins/perl/perl.c Mon Jul 28 04:49:39 2008 +0000 @@ -267,6 +267,24 @@ PL_perl_destruct_level = 1; perl_construct(prober); +/* Fix IO redirection to match where pidgin's is going. + * Without this, we lose stdout/stderr unless we redirect to a file */ +#ifdef _WIN32 +{ + PerlIO* newprlIO = PerlIO_open("CONOUT$", "w"); + if (newprlIO) { + int stdout_fd = PerlIO_fileno(PerlIO_stdout()); + int stderr_fd = PerlIO_fileno(PerlIO_stderr()); + PerlIO_close(PerlIO_stdout()); + PerlIO_close(PerlIO_stderr()); + PerlLIO_dup2(PerlIO_fileno(newprlIO), stdout_fd); + PerlLIO_dup2(PerlIO_fileno(newprlIO), stderr_fd); + + PerlIO_close(newprlIO); + } +} +#endif + perl_parse(prober, xs_init, argc, argv, NULL); perl_run(prober);