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

p4raw-id: //depot/perl@4779

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 7005e2a47e..d7239e8649 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;
 	    }