From 67e53cb940924693c9a80ff86c968e6fdca441d2 Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Wed, 3 Jul 2024 10:33:52 -0500 Subject: T6527: remove remaining references to Perl (cherry picked from commit d509db1020f1f18023871f4ff6149352cd69c800) --- src/cstore/cstore.cpp | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) (limited to 'src') diff --git a/src/cstore/cstore.cpp b/src/cstore/cstore.cpp index c7870a2..bc6aa4d 100644 --- a/src/cstore/cstore.cpp +++ b/src/cstore/cstore.cpp @@ -3155,18 +3155,9 @@ Cstore::vexit_internal(const char *fmt, va_list alist) vsnprintf(buf, 256, fmt, alist); output_internal("%s\n", buf); fprintf(stderr, "DEBUG vexit_internal: %s\n", buf); // DEBUG - if (Perl_get_context()) { - /* we're in a perl context. do a croak to provide more information. - * note that the message should not end in "\n", or the croak message - * will be truncated for some reason. - */ - Perl_croak_nocontext("%s", buf); - // does not return - } else { - // output error message and exit - output_user_err("%s\n", buf); - exit(1); - } + // output error message and exit + output_user_err("%s\n", buf); + exit(1); } } // end namespace cstore -- cgit v1.2.3