637 nawk coredumps on -d
Reviewed by: Olga Kryzhanovska <
[email protected]>
Reviewed by: Roland Mainz <
[email protected]>
Reviewed by: Garrett D'Amore <
[email protected]>
Approved by: Garrett D'Amore <
[email protected]>
--- a/usr/src/cmd/awk/main.c Mon Feb 07 14:16:27 2011 -0800
+++ b/usr/src/cmd/awk/main.c Wed Feb 09 11:52:15 2011 -0800
@@ -137,8 +137,11 @@
}
/* argv[1] is now the first argument */
if (npfile == 0) { /* no -f; first argument is program */
- if (argc <= 1)
+ if (argc <= 1) {
+ if (dbg)
+ exit(0);
ERROR "no program given" FATAL;
+ }
dprintf(("program = |%s|\n", argv[1]));
lexprog = (uchar *)argv[1];
argc--;