diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-06-24 01:47:05 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 13:09:55 +0000 |
| commit | 4f0c37ba8a5ec95c6a79b1e0deea87d200d9357a (patch) | |
| tree | 5746b77df6f9502ad07647f7e5521e499c10288e /perl.c | |
| parent | 2d766320ce469e157550747df903293379e4b3e1 (diff) | |
| download | perl-4f0c37ba8a5ec95c6a79b1e0deea87d200d9357a.tar.gz | |
Re: [PATCH 5.6.1] test suite
Message-ID: <20010624054705.A27890@math.ohio-state.edu>
Test suite fixes.
p4raw-id: //depot/perl@10883
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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++; |