From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 28 Nov 1998 19:00:15 +0000 (+0000)
Subject: allow final period in a file (not followed by a newline) to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a65c6a0721422f3dbac9c301f2d6e8b04b74975;p=p5sagit%2Fp5-mst-13.2.git

allow final period in a file (not followed by a newline) to
terminate format spec

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

diff --git a/toke.c b/toke.c
index fb54cee..e91fa8c 100644
--- a/toke.c
+++ b/toke.c
@@ -6148,7 +6148,7 @@ scan_formline(register char *s)
 #else
 	    for (t = s+1;*t == ' ' || *t == '\t' || *t == '\r'; t++) ;
 #endif
-	    if (*t == '\n')
+	    if (*t == '\n' || t == PL_bufend)
 		break;
 	}
 	if (PL_in_eval && !PL_rsfp) {