'S' case already exists with ALTERNATE_SHEBANG.

Follow-up to b7e077d0225eac833ce2eb6fe9e1807f77d0f848.

diff --git a/perl.c b/perl.c
index 3fae0e5..74e7470 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -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_