diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2016-03-15 10:51:26 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-03-15 10:51:53 -0700 |
commit | dc3dad37dbe8ae1942d8c6ca73394c0f44ae6489 (patch) | |
tree | 9407f718d846019402764489b7bc9d8ac2888a40 /bin | |
parent | 739cdc82b5325402231f3f5e1a38f681fcbd1db2 (diff) | |
download | autoconf-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.in | 12 |
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 |