summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2016-03-15 10:51:26 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2016-03-15 10:51:53 -0700
commitdc3dad37dbe8ae1942d8c6ca73394c0f44ae6489 (patch)
tree9407f718d846019402764489b7bc9d8ac2888a40 /bin
parent739cdc82b5325402231f3f5e1a38f681fcbd1db2 (diff)
downloadautoconf-dc3dad37dbe8ae1942d8c6ca73394c0f44ae6489.tar.gz
autom4te: fix problem when tracing to '-'
* bin/autom4te.in (handle_traces): When $output is '-', use stdout rather than creating a file named '-'. This fixes a problem introduced by the recent port to the new Autom4te::XFile API.
Diffstat (limited to 'bin')
-rw-r--r--bin/autom4te.in12
1 files changed, 10 insertions, 2 deletions
diff --git a/bin/autom4te.in b/bin/autom4te.in
index 591771b2..59945cf2 100644
--- a/bin/autom4te.in
+++ b/bin/autom4te.in
@@ -550,7 +550,7 @@ sub handle_output ($$)
}
else
{
- $out->open($output, O_CREAT | O_WRONLY | O_TRUNC, oct ($mode));
+ $out->open ($output, O_CREAT | O_WRONLY | O_TRUNC, oct ($mode));
}
fatal "cannot create $output: $!"
unless $out;
@@ -834,7 +834,15 @@ EOF
$trace_m4->close;
my $in = new Autom4te::XFile ("$m4 " . shell_quote ("$tmp/traces.m4") . " |");
- my $out = new Autom4te::XFile ($output, ">");
+ my $out = new Autom4te::XFile;
+ if ($output eq '-')
+ {
+ $out->open (">$output");
+ }
+ else
+ {
+ $out->open ($output, ">");
+ }
# This is dubious: should we really transform the quadrigraphs in
# traces? It might break balanced [ ] etc. in the output. The