From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 13 Sep 1999 03:25:43 +0000 (+0000)
Subject: avoid assertion failure on C<@a'>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1189a94a32ae3258f75f6b7571b7a68e694d4ffe;p=p5sagit%2Fp5-mst-13.2.git

avoid assertion failure on C<@a'>

p4raw-id: //depot/perl@4133
---

diff --git a/toke.c b/toke.c
index df965a3..3c098a2 100644
--- a/toke.c
+++ b/toke.c
@@ -213,8 +213,12 @@ S_no_op(pTHX_ char *what, char *s)
     char *oldbp = PL_bufptr;
     bool is_first = (PL_oldbufptr == PL_linestart);
 
-    assert(s >= oldbp);
-    PL_bufptr = s;
+    if (!s)
+	s = oldbp;
+    else {
+	assert(s >= oldbp);
+	PL_bufptr = s;
+    }
     yywarn(Perl_form(aTHX_ "%s found where operator expected", what));
     if (is_first)
 	Perl_warn(aTHX_ "\t(Missing semicolon on previous line?)\n");