Integrate #4779 from mainline:
authorChip Salzenberg <chip@pobox.com>
Mon, 10 Jan 2000 17:52:39 +0000 (17:52 +0000)
committerchip <chip@pobox.com>
Mon, 10 Jan 2000 17:52:39 +0000 (17:52 +0000)
terminate -s switch processing only on C<-->, not on C<--foo>

p4raw-id: //depot/maint-5.005/perl@4788

perl.c

index cc1f7ed..d692386 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2598,7 +2598,7 @@ init_postdump_symbols(register int argc, register char **argv, register char **e
        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;
            }