detypo

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index ef6a8bd..c006a63 100644 (file)
--- 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