diff options
-rw-r--r-- | editors/awk.c | 3 | ||||
-rwxr-xr-x | testsuite/awk.tests | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/editors/awk.c b/editors/awk.c index e765d3fcf..6c60a0615 100644 --- a/editors/awk.c +++ b/editors/awk.c | |||
@@ -3156,7 +3156,8 @@ static var *evaluate(node *op, var *res) | |||
3156 | if (op1) { | 3156 | if (op1) { |
3157 | rsm = newfile(L.s); | 3157 | rsm = newfile(L.s); |
3158 | if (!rsm->F) { | 3158 | if (!rsm->F) { |
3159 | if (opinfo == TI_PGETLINE) { | 3159 | /* NB: can't use "opinfo == TI_PGETLINE", would break "cmd" | getline */ |
3160 | if ((opinfo & OPCLSMASK) == OC_PGETLINE) { | ||
3160 | rsm->F = popen(L.s, "r"); | 3161 | rsm->F = popen(L.s, "r"); |
3161 | rsm->is_pipe = TRUE; | 3162 | rsm->is_pipe = TRUE; |
3162 | } else { | 3163 | } else { |
diff --git a/testsuite/awk.tests b/testsuite/awk.tests index 6b23b91cb..242c897d1 100755 --- a/testsuite/awk.tests +++ b/testsuite/awk.tests | |||
@@ -455,4 +455,9 @@ testing "awk print + redirect" \ | |||
455 | "STDERR %s\n" \ | 455 | "STDERR %s\n" \ |
456 | '' '' | 456 | '' '' |
457 | 457 | ||
458 | testing "awk \"cmd\" | getline" \ | ||
459 | "awk 'BEGIN { \"echo HELLO\" | getline; print }'" \ | ||
460 | "HELLO\n" \ | ||
461 | '' '' | ||
462 | |||
458 | exit $FAILCOUNT | 463 | exit $FAILCOUNT |