don't allow "@ 1 = 1", but do allow "@ t1 = 1"

SCCS-vsn: bin/csh/set.c 4.2

diff --git a/usr/src/bin/csh/set.c b/usr/src/bin/csh/set.c
index 476238a..4a3f6b5 100644 (file)
--- a/usr/src/bin/csh/set.c
+++ b/usr/src/bin/csh/set.c
@@ -1,4 +1,4 @@
-static char *sccsid = "@(#)set.c 4.1 %G%";
+static char *sccsid = "@(#)set.c 4.2 %G%";

 
 #include "sh.h"
 
 
 #include "sh.h"
 


@@ -25,7 +25,7 @@ doset(v)
                hadsub = 0;
                for (vp = p; alnum(*p); p++)
                        continue;
                hadsub = 0;
                for (vp = p; alnum(*p); p++)
                        continue;

-               if (vp == p)
+               if (vp == p || !letter(*vp))

                        goto setsyn;
                if (*p == '[') {
                        hadsub++;
                        goto setsyn;
                if (*p == '[') {
                        hadsub++;


@@ -139,9 +139,9 @@ dolet(v)
        }
        do {
                hadsub = 0;
        }
        do {
                hadsub = 0;

-               for (vp = p; letter(*p); p++)
+               for (vp = p; alnum(*p); p++)

                        continue;
                        continue;

-               if (vp == p)
+               if (vp == p || !letter(*vp))

                        goto letsyn;
                if (*p == '[') {
                        hadsub++;
                        goto letsyn;
                if (*p == '[') {
                        hadsub++;