Clean up and document API for hashes

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index dc285ca..110fd24 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1697,7 +1697,7 @@ yylex()
        }
        goto retry;
     case '\r':
-       croak("Illegal character \\%03o (carriage return)");
+       croak("Illegal character \\%03o (carriage return)", '\r');
     case ' ': case '\t': case '\f': case 013:
        s++;
        goto retry;
@@ -4332,7 +4332,7 @@ I32 ck_uni;
        return s;
     }
     if (*s == '$' && s[1] &&
-      (isALPHA(s[1]) || strchr("$_{", s[1]) || strnEQ(s+1,"::",2)) )
+      (isALNUM(s[1]) || strchr("${", s[1]) || strnEQ(s+1,"::",2)) )
        return s;
     if (*s == '{') {
        bracket = s;