From: Charles Bailey Date: Fri, 3 Mar 2000 03:27:05 +0000 (+0000) Subject: Ad hoc patch for duping stdout into stderr X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71d7ec5d46fa6876877e73162e773201f560f49d;p=p5sagit%2Fp5-mst-13.2.git Ad hoc patch for duping stdout into stderr p4raw-id: //depot/vmsperl@5474 --- diff --git a/vms/vms.c b/vms/vms.c index a498e16..9e7e719 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -2518,6 +2518,9 @@ getredirection(int *ac, char ***av) exit(vaxc$errno); } if (err != NULL) { + if (strcmp(err,"&1") == 0) { + dup2(fileno(stdout), fileno(Perl_debug_log)); + } else { FILE *tmperr; if (NULL == (tmperr = fopen(err, errmode, "mbc=32", "mbf=2"))) { @@ -2530,6 +2533,7 @@ getredirection(int *ac, char ***av) exit(vaxc$errno); } } + } #ifdef ARGPROC_DEBUG PerlIO_printf(Perl_debug_log, "Arglist:\n"); for (j = 0; j < *ac; ++j)