From 71d7ec5d46fa6876877e73162e773201f560f49d Mon Sep 17 00:00:00 2001 From: Charles Bailey Date: Fri, 3 Mar 2000 03:27:05 +0000 Subject: [PATCH] Ad hoc patch for duping stdout into stderr p4raw-id: //depot/vmsperl@5474 --- vms/vms.c | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 2.7.4