improved diagnostic on syntax errors at EOL

p4raw-id: //depot/perl@2744

1 files changed, 2 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index de6bfda949..66d9947e64 100644
--- a/toke.c
+++ b/toke.c
@@ -199,6 +199,8 @@ no_op(char *what, char *s)
 		t - PL_oldoldbufptr, PL_oldoldbufptr);
 
     }
+    else if (s <= oldbp)
+	warn("\t(Missing operator before end of line?)\n");
     else
 	warn("\t(Missing operator before %.*s?)\n", s - oldbp, oldbp);
     PL_bufptr = oldbp;