/* pp.c
*
- * Copyright (c) 1991-1997, Larry Wall
+ * Copyright (c) 1991-1999, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
#endif
if (isSPACE(datumtype))
continue;
- if (*pat == '_') {
+ if (*pat == '!') {
char *natstr = "sSiIlL";
if (strchr(natstr, datumtype)) {
pat++;
}
else
- croak("'_' allowed only after types %s", natstr);
+ croak("'!' allowed only after types %s", natstr);
}
if (pat >= patend)
len = 1;
#endif
if (isSPACE(datumtype))
continue;
- if (*pat == '_') {
+ if (*pat == '!') {
char *natstr = "sSiIlL";
if (strchr(natstr, datumtype)) {
pat++;
}
else
- croak("'_' allowed only after types %s", natstr);
+ croak("'!' allowed only after types %s", natstr);
}
if (*pat == '*') {
len = strchr("@Xxu", datumtype) ? 0 : items;