1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index ef6a8bdbf2..c006a63480 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