projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6bc102c
)
avoid assertion failure on C<@a'>
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 13 Sep 1999 03:25:43 +0000
(
03:25
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 13 Sep 1999 03:25:43 +0000
(
03:25
+0000)
p4raw-id: //depot/perl@4133
toke.c
patch
|
blob
|
history
diff --git
a/toke.c
b/toke.c
index
df965a3
..
3c098a2
100644
(file)
--- 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");