Fix parsing problem introduced in the previous ${10} fix, where $#digit
or $digit# would get mis-parsed as a positional parameter.
This commit is contained in:
parent
56542666eb
commit
6f224ae59f
@ -1,4 +1,4 @@
|
||||
/* $NetBSD: parser.c,v 1.33 1997/01/24 17:15:56 christos Exp $ */
|
||||
/* $NetBSD: parser.c,v 1.34 1997/01/26 18:05:34 christos Exp $ */
|
||||
|
||||
/*-
|
||||
* Copyright (c) 1991, 1993
|
||||
@ -40,7 +40,7 @@
|
||||
#if 0
|
||||
static char sccsid[] = "@(#)parser.c 8.7 (Berkeley) 5/16/95";
|
||||
#else
|
||||
static char rcsid[] = "$NetBSD: parser.c,v 1.33 1997/01/24 17:15:56 christos Exp $";
|
||||
static char rcsid[] = "$NetBSD: parser.c,v 1.34 1997/01/26 18:05:34 christos Exp $";
|
||||
#endif
|
||||
#endif /* not lint */
|
||||
|
||||
@ -1194,11 +1194,15 @@ parsesub: {
|
||||
STPUTC(c, out);
|
||||
c = pgetc();
|
||||
} while (is_in_name(c));
|
||||
} else if (is_special(c)) {
|
||||
} else if (is_digit(c)) {
|
||||
do {
|
||||
USTPUTC(c, out);
|
||||
c = pgetc();
|
||||
} while (is_special(c));
|
||||
} while (is_digit(c));
|
||||
}
|
||||
else if (is_special(c)) {
|
||||
USTPUTC(c, out);
|
||||
c = pgetc();
|
||||
}
|
||||
else
|
||||
badsub: synerror("Bad substitution");
|
||||
|
Loading…
Reference in New Issue
Block a user