From: Steve Hay <SteveHay@planit.com>
Date: Wed, 14 Jan 2009 12:21:59 +0000 (+0000)
Subject: Allow '\r' after "#line XXX" directives.
X-Git-Tag: accepted/trunk/20130322.191538~12115
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=07714eb4889156c33187b02961d4af49685702e0;p=platform%2Fupstream%2Fperl.git

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
--- 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++;