From 4bb78d633325d95f788c504d75b0fcae3fbc9f46 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 31 Dec 2011 18:28:46 -0600
Subject: [PATCH] 'S' case already exists with ALTERNATE_SHEBANG.

Follow-up to b7e077d0225eac833ce2eb6fe9e1807f77d0f848.
---
 perl.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 3fae0e5..74e7470 100644
--- 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_
-- 
2.7.4