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

terminate format spec

p4raw-id: //depot/perl@2369

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index fb54cee87c..e91fa8c480 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) {