diff options
author | Steve Hay <SteveHay@planit.com> | 2009-01-14 12:21:59 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2009-01-14 12:21:59 +0000 |
commit | 07714eb4889156c33187b02961d4af49685702e0 (patch) | |
tree | 49c8f8d8ae21b240cf18afb5fba23602cb61ffac /toke.c | |
parent | f340d83a2dfc7d46ec2faecd54348728374a83bb (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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++; |