perl5.002beta3

[editor's note: no patch file was found for this release, so no
fine-grained changes]

I can't find the password for our ftp server, so I had to drop it into
ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop
directory you can't ls.

The current plan is that Andy is gonna whack on this a little more, and
then release a gamma in a few days when he's happy with it.  So don't get
carried away.  This is now *late* beta.

In other words, have less than the appropriate amount of fun.  :-)

Larry

1 files changed, 33 insertions, 5 deletions

diff --git a/toke.c b/toke.c
index 7b882faf18..d24eee9fd9 100644
--- a/toke.c
+++ b/toke.c
@@ -257,10 +257,8 @@ SV *line;
     SvTEMP_off(linestr);
     oldoldbufptr = oldbufptr = bufptr = SvPVX(linestr);
     bufend = bufptr + SvCUR(linestr);
-    rs = "\n";
-    rslen = 1;
-    rschar = '\n';
-    rspara = 0;
+    SvREFCNT_dec(rs);
+    rs = newSVpv("\n", 1);
     rsfp = 0;
 }
 
@@ -1765,7 +1763,7 @@ yylex()
 		if (*s == '}')
 		    OPERATOR(HASHBRACK);
 		if (isALPHA(*s)) {
-		    for (t = s; t < bufend && isALPHA(*t); t++) ;
+		    for (t = s; t < bufend && isALNUM(*t); t++) ;
 		}
 		else if (*s == '\'' || *s == '"') {
 		    t = strchr(s+1,*s);
@@ -1840,6 +1838,7 @@ yylex()
 	}
 	else
 	    PREREF('&');
+	yylval.ival = (OPpENTERSUB_AMPER<<8);
 	TERM('&');
 
     case '|':
@@ -2029,6 +2028,19 @@ yylex()
 		    }
 		}
 		if (tmp = pad_findmy(tokenbuf)) {
+		    if (!tokenbuf[2] && *tokenbuf =='$' &&
+			tokenbuf[1] <= 'b' && tokenbuf[1] >= 'a')
+		    {
+			for (d = in_eval ? oldoldbufptr : SvPVX(linestr);
+			    d < bufend && *d != '\n';
+			    d++)
+			{
+			    if (strnEQ(d,"<=>",3) || strnEQ(d,"cmp",3)) {
+			        croak("Can't use \"my %s\" in sort comparison",
+				    tokenbuf);
+			    }
+			}
+		    }
 		    nextval[nexttoke].opval = newOP(OP_PADANY, 0);
 		    nextval[nexttoke].opval->op_targ = tmp;
 		    force_next(PRIVATEREF);
@@ -2368,6 +2380,7 @@ yylex()
 		    nextval[nexttoke].opval = yylval.opval;
 		    expect = XOPERATOR;
 		    force_next(WORD);
+		    yylval.ival = 0;
 		    TOKEN('&');
 		}
 
@@ -2392,6 +2405,7 @@ yylex()
 		    if (*s == '(') {
 			expect = XTERM;
 			force_next(WORD);
+			yylval.ival = 0;
 			TOKEN('&');
 		    }
 		    if (lastchar == '-')
@@ -2933,6 +2947,9 @@ yylex()
 	    checkcomma(s,tokenbuf,"filehandle");
 	    LOP(OP_PRTF,XREF);
 
+	case KEY_prototype:
+	    UNI(OP_PROTOTYPE);
+
 	case KEY_push:
 	    LOP(OP_PUSH,XTERM);
 
@@ -3253,6 +3270,9 @@ yylex()
 	case KEY_syscall:
 	    LOP(OP_SYSCALL,XTERM);
 
+	case KEY_sysopen:
+	    LOP(OP_SYSOPEN,XTERM);
+
 	case KEY_sysread:
 	    LOP(OP_SYSREAD,XTERM);
 
@@ -3272,6 +3292,9 @@ yylex()
 	case KEY_tie:
 	    LOP(OP_TIE,XTERM);
 
+	case KEY_tied:
+	    UNI(OP_TIED);
+
 	case KEY_time:
 	    FUN0(OP_TIME);
 
@@ -3744,6 +3767,8 @@ I32 len;
 	case 7:
 	    if (strEQ(d,"package"))		return KEY_package;
 	    break;
+	case 9:
+	    if (strEQ(d,"prototype"))		return KEY_prototype;
 	}
 	break;
     case 'q':
@@ -3886,6 +3911,7 @@ I32 len;
 		if (strEQ(d,"system"))		return -KEY_system;
 		break;
 	    case 7:
+		if (strEQ(d,"sysopen"))		return -KEY_sysopen;
 		if (strEQ(d,"sysread"))		return -KEY_sysread;
 		if (strEQ(d,"symlink"))		return -KEY_symlink;
 		if (strEQ(d,"syscall"))		return -KEY_syscall;
@@ -3907,6 +3933,7 @@ I32 len;
 	    break;
 	case 4:
 	    if (strEQ(d,"tell"))		return -KEY_tell;
+	    if (strEQ(d,"tied"))		return KEY_tied;
 	    if (strEQ(d,"time"))		return -KEY_time;
 	    break;
 	case 5:
@@ -4603,6 +4630,7 @@ char *start;
 
 	if (!rsfp ||
 	 !(oldoldbufptr = oldbufptr = s = filter_gets(linestr, rsfp))) {
+	    sv_free(sv);
 	    curcop->cop_line = multi_start;
 	    return Nullch;
 	}