Allow '\r' after "#line XXX" directives.

Fixes lib/feature.t and lib/warnings.t tests that have been failing on Win32 since commit 26b6dc3.

diff --git a/toke.c b/toke.c
index 750e4d4..08796d6 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -824,7 +824,7 @@ S_incline(pTHX_ const char *s)
     n = s;
     while (isDIGIT(*s))
        s++;
-    if (!SPACE_OR_TAB(*s) && *s != '\n' && *s != '\0')
+    if (!SPACE_OR_TAB(*s) && *s != '\r' && *s != '\n' && *s != '\0')
        return;
     while (SPACE_OR_TAB(*s))
        s++;