--- ../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; #### TRACE 6: 'Operation was aborted by an application callback'STACKTRACE: blib/arch/auto/Net/Curl/Curl.so(+0x10d09) [0x7f5f16740d09] STACKTRACE: blib/arch/auto/Net/Curl/Curl.so(+0x11d7b) [0x7f5f16741d7b] STACKTRACE: /usr/lib64/libcurl.so.4(+0x51b84) [0x7f5f166cdb84] STACKTRACE: /usr/lib64/libcurl.so.4(+0x5542b) [0x7f5f166d142b] STACKTRACE: /usr/lib64/libcurl.so.4(curl_multi_perform+0x105) [0x7f5f166d4265] STACKTRACE: blib/arch/auto/Net/Curl/Curl.so(+0xb834) [0x7f5f1673b834] STACKTRACE: perl() [0x4fdd6c] STACKTRACE: perl(Perl_runops_standard+0x13) [0x4f4023] STACKTRACE: perl(perl_run+0x4b8) [0x43ef78] STACKTRACE: perl(main+0x102) [0x419372] STACKTRACE: /usr/lib64/libc.so.6(+0x2814a) [0x7f5f1678014a] STACKTRACE: /usr/lib64/libc.so.6(__libc_start_main+0x8b) [0x7f5f1678020b] STACKTRACE: perl(_start+0x25) [0x4193b5]