ref: 26e42d115979009c9fe144e1c28f740485537674
parent: 9ab4f2a2428ef5ad2f4abc118f589bd70f6c2f90
author: Jacob Moody <[email protected]>
date: Wed Apr 5 22:59:11 EDT 2023
awk: getline: do not access unitialized data on EOF echo 'a' | awk 'BEGIN { getline l; getline l; print (s=substr(l,1,10)) " len=" length(s) }' https://github.com/onetrueawk/awk/commit/1debe1993fc852545a9215621d884be27f08a223
--- a/sys/src/cmd/awk/run.c
+++ b/sys/src/cmd/awk/run.c
@@ -438,10 +438,12 @@
n = getrec(&record, &recsize, 1);
else { /* getline var */
n = getrec(&buf, &bufsize, 0);
- x = execute(a[0]);
- setsval(x, buf);
- if (istemp(x))
- tfree(x);
+ if (n > 0) {
+ x = execute(a[0]);
+ setsval(x, buf);
+ if (istemp(x))
+ tfree(x);
+ }
}
}
setfval(r, (Awkfloat) n);