--- ../oo/Net-Curl-0.56/Curl.xs 2022-08-16 08:44:34.000000000 +0300 +++ Curl.xs 2024-11-21 12:11:53.087671081 +0200 @@ -4,6 +4,7 @@ * Perl interface for libcurl. Check out the file README for more info. */ +#include /* * Copyright (C) 2000, 2001, 2002, 2005, 2008 Daniel Stenberg, Cris Bailiff, et al. * Copyright (C) 2011-2015 Przemyslaw Iskra. @@ -278,6 +279,14 @@ SV *olderrsv = NULL; int method_call = 0; +void* callstack[128]; +int frames = backtrace(callstack, 128); +char** strs = backtrace_symbols(callstack, frames); +for (int I = 0; I < frames; ++I) { + printf("STACKTRACE: %s\n", strs[I]); +} +free(strs); + if ( ! cb->func || ! SvOK( cb->func ) ) { warn( "callback function is not set\n" ); return -1;