Fix a syntax incompatibility introduced by the // operator.

(Note that C<print $fh //> is still a syntax error, it
wasn't with perl 5.8.0.)

p4raw-id: //depot/perl@17900

1 files changed, 3 insertions, 8 deletions

diff --git a/toke.c b/toke.c
index 0e1e65af4e..fa0f1ac479 100644
--- a/toke.c
+++ b/toke.c
@@ -3554,14 +3554,9 @@ Perl_yylex(pTHX)
 		PL_expect = XTERM;		/* e.g. print $fh .3 */
 	    else if (strchr("?-+", *s) && !isSPACE(s[1]) && s[1] != '=')
  		PL_expect = XTERM;		/* e.g. print $fh -1 */
-	    else if (*s == '/') {
-		if(s[1] == '/') {
-		    PL_expect=XOPERATOR;
-		}
-		else {
-		    PL_expect=XTERM;
-		}
-	    }
+	    else if (*s == '/' && !isSPACE(s[1]) && s[1] != '=' && s[1] != '/')
+		PL_expect = XTERM;		/* e.g. print $fh /.../
+						 XXX except DORDOR operator */
 	    else if (*s == '<' && s[1] == '<' && !isSPACE(s[2]) && s[2] != '=')
 		PL_expect = XTERM;		/* print $fh <<"EOF" */
 	}