diff options
author | Craig A. Berry <craigberry@mac.com> | 2011-12-31 18:28:46 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2011-12-31 18:28:46 -0600 |
commit | 4bb78d633325d95f788c504d75b0fcae3fbc9f46 (patch) | |
tree | bcfa429742c798c02c0155f78eadafc4504eda06 /perl.c | |
parent | bf081550aa51eda33d3f725305e3280aae7ae355 (diff) | |
download | perl-4bb78d633325d95f788c504d75b0fcae3fbc9f46.tar.gz |
'S' case already exists with ALTERNATE_SHEBANG.
Follow-up to b7e077d0225eac833ce2eb6fe9e1807f77d0f848.
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -3354,7 +3354,11 @@ Perl_moreswitches(pTHX_ const char *s) case 'S': /* OS/2 needs -S on "extproc" line. */ break; #endif - case 'e': case 'f': case 'x': case 'E': case 'S': case 'V': + case 'e': case 'f': case 'x': case 'E': +#ifndef ALTERNATE_SHEBANG + case 'S': +#endif + case 'V': Perl_croak(aTHX_ "Can't emulate -%.1s on #! line",s); default: Perl_croak(aTHX_ |