shithub: riscv

Info  •  Files  •  Log  •  Branches

awk: no need to call getargv() twice to get the value for FILENAME

--- a/sys/src/cmd/awk/lib.c

+++ b/sys/src/cmd/awk/lib.c

@@ -88,7 +88,7 @@

 	for (i = 1; i < *AARGC; i++) {

 		if (!isclvar(p = getargv(i))) {	/* find 1st real filename */

-			setsval(lookup("FILENAME", symtab), getargv(i));

+			setsval(lookup("FILENAME", symtab), p);

 			return;

 		}

 		setclvar(p);	/* a commandline assignment before filename */