From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 10 Jan 2000 05:06:16 +0000 (+0000)
Subject: terminate -s switch processing only on C<-->, not on C<--foo>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=379d538a0768daddd61d1562735044de8d7dad6f;p=p5sagit%2Fp5-mst-13.2.git

terminate -s switch processing only on C<-->, not on C<--foo>

p4raw-id: //depot/perl@4779
---

diff --git a/perl.c b/perl.c
index 7005e2a..d7239e8 100644
--- a/perl.c
+++ b/perl.c
@@ -2827,7 +2827,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
 	for (; argc > 0 && **argv == '-'; argc--,argv++) {
 	    if (!argv[0][1])
 		break;
-	    if (argv[0][1] == '-') {
+	    if (argv[0][1] == '-' && !argv[0][2]) {
 		argc--,argv++;
 		break;
 	    }