diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2016-07-01 10:16:32 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2016-07-01 10:16:32 +0300 |
| commit | 606836b7783dc5c75b8ff1d5dbc4374c3ca787e0 (patch) | |
| tree | 6a24e465b984aea9b36ef0df1d1e078749d9674f /awkgram.c | |
| parent | ce41ffb80b068139b4e04e3cff1d5dc2ee0ccc78 (diff) | |
| parent | b11d9d80ffce53cfdaebb076ea67420884fba6ab (diff) | |
| download | egawk-606836b7783dc5c75b8ff1d5dbc4374c3ca787e0.tar.gz egawk-606836b7783dc5c75b8ff1d5dbc4374c3ca787e0.tar.bz2 egawk-606836b7783dc5c75b8ff1d5dbc4374c3ca787e0.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'awkgram.c')
| -rw-r--r-- | awkgram.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -7058,6 +7058,8 @@ dump_vars(const char *fname) if (fname == NULL) fp = stderr; + else if (strcmp(fname, "-") == 0) + fp = stdout; else if ((fp = fopen(fname, "w")) == NULL) { warning(_("could not open `%s' for writing (%s)"), fname, strerror(errno)); warning(_("sending variable list to standard error")); @@ -7067,7 +7069,7 @@ dump_vars(const char *fname) vars = variable_list(); print_vars(vars, fprintf, fp); efree(vars); - if (fp != stderr && fclose(fp) != 0) + if (fp != stdout && fp != stderr && fclose(fp) != 0) warning(_("%s: close failed (%s)"), fname, strerror(errno)); } |