tweak for build failure under multiplicity

p4raw-id: //depot/perl@6374

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 8f42dcfb5e..f39b3bdc0e 100644
--- a/toke.c
+++ b/toke.c
@@ -1276,7 +1276,7 @@ S_scan_const(pTHX_ char *start)
 	    /* range begins (ignore - as first or last char) */
 	    else if (*s == '-' && s+1 < send  && s != start) {
                 if (didrange) { 
-                  croak("Ambiguous range in transliteration operator");
+		    Perl_croak(aTHX_ "Ambiguous range in transliteration operator");
                 }
 		if (utf) {
 		    *d++ = (char)0xff;	/* use illegal utf8 byte--see pmtrans */