From 4f0c37ba8a5ec95c6a79b1e0deea87d200d9357a Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Sun, 24 Jun 2001 01:47:05 -0400 Subject: Re: [PATCH 5.6.1] test suite Message-ID: <20010624054705.A27890@math.ohio-state.edu> Test suite fixes. p4raw-id: //depot/perl@10883 --- perl.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index ae2091f5e5..34da642d81 100644 --- a/perl.c +++ b/perl.c @@ -3141,7 +3141,8 @@ S_find_beginning(pTHX) if ((s = sv_gets(PL_linestr, PL_rsfp, 0)) == Nullch) Perl_croak(aTHX_ "No Perl script found in input\n"); #endif - if (*s == '#' && s[1] == '!' && (s = instr(s,"perl"))) { + s2 = s; + if (*s == '#' && s[1] == '!' && ((s = instr(s,"perl")) || (s = instr(s2,"PERL")))) { PerlIO_ungetc(PL_rsfp, '\n'); /* to keep line count right */ PL_doextract = FALSE; while (*s && !(isSPACE (*s) || *s == '#')) s++; -- cgit v1.2.1