z/OS: changes for building threaded from "Brian De Pradine"

<PRADINE@uk.ibm.com>.

p4raw-id: //depot/perl@19306

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 5e63d114b8..ab1d6dc213 100644
--- a/util.c
+++ b/util.c
@@ -3683,7 +3683,7 @@ Perl_scan_vstring(pTHX_ char *s, SV *sv)
 	    }
 #ifdef EBCDIC
 	    if (rev > 0x7FFFFFFF)
-		 Perl_croak(aTHX "In EBCDIC the v-string components cannot exceed 2147483647");
+		 Perl_croak(aTHX_ "In EBCDIC the v-string components cannot exceed 2147483647");
 #endif
 	    /* Append native character for the rev point */
 	    tmpend = uvchr_to_utf8(tmpbuf, rev);