summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorLeon Timmermans <fawaka@gmail.com>2015-04-19 13:03:28 +0200
committerLeon Timmermans <fawaka@gmail.com>2015-06-22 14:55:33 +0200
commitd9fc04eebe29b8cf5f6f6bf31373b202eafa44d6 (patch)
treef5593d4d0e65dd4fb66ab4459607b8bfb1936d20 /toke.c
parent37b8cdd1927432f22e389f8405a9f8a198fb0360 (diff)
downloadperl-d9fc04eebe29b8cf5f6f6bf31373b202eafa44d6.tar.gz
Respect hashbangs containing perl6
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/toke.c b/toke.c
index 4962521171..71938bd879 100644
--- a/toke.c
+++ b/toke.c
@@ -4863,6 +4863,8 @@ Perl_yylex(pTHX)
d = instr(s,"perl -");
if (!d) {
d = instr(s,"perl");
+ if (d && d[4] == '6')
+ d = NULL;
#if defined(DOSISH)
/* avoid getting into infinite loops when shebang
* line contains "Perl" rather than "perl" */