1 files changed, 3 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index b9a9111d33..d94bb5f5ad 100644
--- a/perl.c
+++ b/perl.c
@@ -3139,6 +3139,9 @@ S_find_beginning(pTHX)
 		    while ((s = moreswitches(s)))
 			;
 	    }
+#ifdef MACOS_TRADITIONAL
+	    break;
+#endif
 	}
     }
 }