X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=c006a634805574adf2d312814031e4860d1304bf;hb=658bbd66c2d2a7c48f06bb97a9c36f4970ca2011;hp=ef6a8bdbf26d1ddb7fdfca247eba056322a03ccb;hpb=729a02f2394e6a50fe8352c9471391b53e54ac40;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index ef6a8bd..c006a63 100644
--- a/perl.c
+++ b/perl.c
@@ -908,7 +908,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 	switch (*s) {
 	case 'C':
 #ifdef	WIN32
-	    win32_argv2utf8(aTHX_ argc-1, argv+1);
+	    win32_argv2utf8(argc-1, argv+1);
 	    /* FALL THROUGH */
 #endif
 #ifndef PERL_STRICT_CR