summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2009-01-14 12:21:59 +0000
committerSteve Hay <SteveHay@planit.com>2009-01-14 12:21:59 +0000
commit07714eb4889156c33187b02961d4af49685702e0 (patch)
tree49c8f8d8ae21b240cf18afb5fba23602cb61ffac /toke.c
parentf340d83a2dfc7d46ec2faecd54348728374a83bb (diff)
downloadperl-07714eb4889156c33187b02961d4af49685702e0.tar.gz
Allow '\r' after "#line XXX" directives.
Fixes lib/feature.t and lib/warnings.t tests that have been failing on Win32 since commit 26b6dc3.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 750e4d45ec..08796d6368 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++;