From: Charles Bailey <bailey@newman.upenn.edu>
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)