Ad hoc patch for duping stdout into stderr
Charles Bailey [Fri, 3 Mar 2000 03:27:05 +0000 (03:27 +0000)]
p4raw-id: //depot/vmsperl@5474

vms/vms.c

index a498e16..9e7e719 100644 (file)
--- 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)