Make '-s' on the shebang line able to parse -foo=bar switches again.

This feature was broken by change 19695 some years ago
and integrated into perl-5.8.1.  perl-5.8.0 was fine.
Ref http://bugs.activestate.com/show_bug.cgi?id=43483

p4raw-id: //depot/perl@26670

1 files changed, 3 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index 720fe15255..f37857824f 100644
--- a/perl.c
+++ b/perl.c
@@ -4519,8 +4519,9 @@ Perl_init_argv_symbols(pTHX_ register int argc, register char **argv)
 		break;
 	    }
 	    if ((s = strchr(argv[0], '='))) {
-		*s++ = '\0';
-		sv_setpv(GvSV(gv_fetchpv(argv[0]+1,TRUE, SVt_PV)),s);
+		*s = '\0';
+		sv_setpv(GvSV(gv_fetchpv(argv[0] + 1, TRUE, SVt_PV)), s + 1);
+		*s = '=';
 	    }
 	    else
 		sv_setiv(GvSV(gv_fetchpv(argv[0]+1,TRUE, SVt_PV)),1);