projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
840301a
)
Ad hoc patch for duping stdout into stderr
author
Charles Bailey
<bailey@newman.upenn.edu>
Fri, 3 Mar 2000 03:27:05 +0000
(
03:27
+0000)
committer
bailey
<bailey@newman.upenn.edu>
Fri, 3 Mar 2000 03:27:05 +0000
(
03:27
+0000)
p4raw-id: //depot/vmsperl@5474
vms/vms.c
patch
|
blob
|
history
diff --git
a/vms/vms.c
b/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)