Integrate with Sarathy.

p4raw-id: //depot/cfgperl@4489

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 2d965b0637..684e344c16 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1404,7 +1404,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
 	    }
 	    break;
 	default:
-	    croak("panic: unknown regstclass %d", (int)OP(c));
+	    Perl_croak(aTHX_ "panic: unknown regstclass %d", (int)OP(c));
 	    break;
 	}
     }