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 (file)
--- 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) {