WARNING: Your GNU C 13.3.0 compiler is very old. Please upgrade it and rebuild perl.
I see you're using perl 5.040002 on x86_64-linux-thread-multi, okay.
Remember to actually *read* the README file!
Use 'make' to build the software (dmake or nmake on Windows).
Then 'make test' to execute self tests.
Then 'make install' to install the DBI and then delete this working
directory before unpacking and building any DBD::* drivers.
In file included from /usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:3329,
from DBIXS.h:23,
from Perl.xs:7:
/usr/lib/perl5/5.40.2/core_perl/CORE/inline.h: In function ‘Perl_is_utf8_valid_partial_char_flags’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘STRLEN’ {aka ‘long unsigned int’} to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/inline.h:3160:12: note: in expansion of macro ‘cBOOL’
3160 | return cBOOL(is_utf8_char_helper_(s0, e, flags));
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv_inline.h: In function ‘Perl_sv_setpv_freshbuf’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1724:13: note: in expansion of macro ‘UNLIKELY’
1724 | if (UNLIKELY(TAINT_get)) \
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1724:22: note: in expansion of macro ‘TAINT_get’
1724 | if (UNLIKELY(TAINT_get)) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv_inline.h:1013:5: note: in expansion of macro ‘SvTAINT’
1013 | SvTAINT(sv);
| ^~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:42: note: in expansion of macro ‘UNLIKELY’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1029:34: note: in expansion of macro ‘cBOOL’
1029 | # define TAINTING_get (cBOOL(UNLIKELY(PL_tainting)))
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:51: note: in expansion of macro ‘TAINTING_get’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1725:13: note: in expansion of macro ‘SvTAINTED_on’
1725 | SvTAINTED_on(sv); \
| ^~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv_inline.h:1013:5: note: in expansion of macro ‘SvTAINT’
1013 | SvTAINT(sv);
| ^~~~~~~
./Perl.xsi: In function ‘XS_DBD__Perl__db_selectrow_arrayref’:
./Perl.xsi:234:9: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
234 | if (GIMME == G_SCALAR)
| ^~
In file included from /usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:6186:
/usr/lib/perl5/5.40.2/core_perl/CORE/proto.h:1031:1: note: declared here
1031 | Perl_dowantarray(pTHX)
| ^~~~~~~~~~~~~~~~
./Perl.xsi:240:9: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
240 | if (GIMME == G_SCALAR)
| ^~
/usr/lib/perl5/5.40.2/core_perl/CORE/proto.h:1031:1: note: declared here
1031 | Perl_dowantarray(pTHX)
| ^~~~~~~~~~~~~~~~
In file included from /usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:3329,
from DBIXS.h:23,
from DBI.xs:13:
/usr/lib/perl5/5.40.2/core_perl/CORE/inline.h: In function ‘Perl_is_utf8_valid_partial_char_flags’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘STRLEN’ {aka ‘long unsigned int’} to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/inline.h:3160:12: note: in expansion of macro ‘cBOOL’
3160 | return cBOOL(is_utf8_char_helper_(s0, e, flags));
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv_inline.h: In function ‘Perl_sv_setpv_freshbuf’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1724:13: note: in expansion of macro ‘UNLIKELY’
1724 | if (UNLIKELY(TAINT_get)) \
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1724:22: note: in expansion of macro ‘TAINT_get’
1724 | if (UNLIKELY(TAINT_get)) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv_inline.h:1013:5: note: in expansion of macro ‘SvTAINT’
1013 | SvTAINT(sv);
| ^~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:42: note: in expansion of macro ‘UNLIKELY’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1029:34: note: in expansion of macro ‘cBOOL’
1029 | # define TAINTING_get (cBOOL(UNLIKELY(PL_tainting)))
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:51: note: in expansion of macro ‘TAINTING_get’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1725:13: note: in expansion of macro ‘SvTAINTED_on’
1725 | SvTAINTED_on(sv); \
| ^~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv_inline.h:1013:5: note: in expansion of macro ‘SvTAINT’
1013 | SvTAINT(sv);
| ^~~~~~~
DBI.xs: In function ‘dbi_ima_free’:
DBI.xs:244:46: warning: unused parameter ‘mg’ [-Wunused-parameter]
244 | static int dbi_ima_free(pTHX_ SV* sv, MAGIC* mg)
| ~~~~~~~^~
DBI.xs: In function ‘sql_type_cast_svpv’:
DBI.xs:1943:65: warning: unused parameter ‘v’ [-Wunused-parameter]
1943 | sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 flags, void *v)
| ~~~~~~^
DBI.xs: In function ‘XS_DBI_dispatch’:
DBI.xs:3194:5: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
3194 | int gimme = GIMME;
| ^~~
In file included from /usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:6186:
/usr/lib/perl5/5.40.2/core_perl/CORE/proto.h:1031:1: note: declared here
1031 | Perl_dowantarray(pTHX)
| ^~~~~~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:42: note: in expansion of macro ‘UNLIKELY’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1029:34: note: in expansion of macro ‘cBOOL’
1029 | # define TAINTING_get (cBOOL(UNLIKELY(PL_tainting)))
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:51: note: in expansion of macro ‘TAINTING_get’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~~~~~
DBI.xs:3958:25: note: in expansion of macro ‘SvTAINTED_on’
3958 | SvTAINTED_on(s);
| ^~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:42: note: in expansion of macro ‘UNLIKELY’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1029:34: note: in expansion of macro ‘cBOOL’
1029 | # define TAINTING_get (cBOOL(UNLIKELY(PL_tainting)))
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:51: note: in expansion of macro ‘TAINTING_get’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~~~~~
DBI.xs:3965:25: note: in expansion of macro ‘SvTAINTED_on’
3965 | SvTAINTED_on(s);
| ^~~~~~~~~~~~
DBI.c: In function ‘XS_DBI_constant’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4253:52: note: in expansion of macro ‘cBOOL’
4253 | #define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:485:13: note: in expansion of macro ‘LIKELY’
485 | if (LIKELY( \
| ^~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:487:28: note: in expansion of macro ‘TAINT_get’
487 | & (do_taint ? !TAINT_get : 1))) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:556:38: note: in expansion of macro ‘TARGi’
556 | #define PUSHi(i) STMT_START { TARGi(i,1); PUSHs(TARG); } STMT_END
| ^~~~~
DBI.c:4630:9: note: in expansion of macro ‘PUSHi’
4630 | PUSHi((IV)RETVAL);
| ^~~~~
DBI.xs: In function ‘XS_DBI__new_handle’:
DBI.xs:4624:5: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
4624 | if (GIMME != G_SCALAR) {
| ^~
/usr/lib/perl5/5.40.2/core_perl/CORE/proto.h:1031:1: note: declared here
1031 | Perl_dowantarray(pTHX)
| ^~~~~~~~~~~~~~~~
DBI.xs: In function ‘XS_DBI__handles’:
DBI.xs:4661:5: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
4661 | if (GIMME != G_SCALAR) {
| ^~
/usr/lib/perl5/5.40.2/core_perl/CORE/proto.h:1031:1: note: declared here
1031 | Perl_dowantarray(pTHX)
| ^~~~~~~~~~~~~~~~
DBI.c: In function ‘XS_DBI_hash’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4253:52: note: in expansion of macro ‘cBOOL’
4253 | #define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:485:13: note: in expansion of macro ‘LIKELY’
485 | if (LIKELY( \
| ^~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:487:28: note: in expansion of macro ‘TAINT_get’
487 | & (do_taint ? !TAINT_get : 1))) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:556:38: note: in expansion of macro ‘TARGi’
556 | #define PUSHi(i) STMT_START { TARGi(i,1); PUSHs(TARG); } STMT_END
| ^~~~~
DBI.c:4840:9: note: in expansion of macro ‘PUSHi’
4840 | PUSHi((IV)RETVAL);
| ^~~~~
DBI.c: In function ‘XS_DBI_trace’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4253:52: note: in expansion of macro ‘cBOOL’
4253 | #define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:485:13: note: in expansion of macro ‘LIKELY’
485 | if (LIKELY( \
| ^~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:487:28: note: in expansion of macro ‘TAINT_get’
487 | & (do_taint ? !TAINT_get : 1))) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:556:38: note: in expansion of macro ‘TARGi’
556 | #define PUSHi(i) STMT_START { TARGi(i,1); PUSHs(TARG); } STMT_END
| ^~~~~
DBI.c:5036:9: note: in expansion of macro ‘PUSHi’
5036 | PUSHi((IV)RETVAL);
| ^~~~~
DBI.c: In function ‘XS_DBI_dbi_time’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4253:52: note: in expansion of macro ‘cBOOL’
4253 | #define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:530:13: note: in expansion of macro ‘LIKELY’
530 | if (LIKELY( \
| ^~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:532:28: note: in expansion of macro ‘TAINT_get’
532 | & (do_taint ? !TAINT_get : 1))) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:555:38: note: in expansion of macro ‘TARGn’
555 | #define PUSHn(n) STMT_START { TARGn(n,1); PUSHs(TARG); } STMT_END
| ^~~~~
DBI.c:5112:9: note: in expansion of macro ‘PUSHn’
5112 | PUSHn((NV)RETVAL);
| ^~~~~
DBI.c: In function ‘XS_DBI_sql_type_cast’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4253:52: note: in expansion of macro ‘cBOOL’
4253 | #define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:485:13: note: in expansion of macro ‘LIKELY’
485 | if (LIKELY( \
| ^~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:487:28: note: in expansion of macro ‘TAINT_get’
487 | & (do_taint ? !TAINT_get : 1))) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:556:38: note: in expansion of macro ‘TARGi’
556 | #define PUSHi(i) STMT_START { TARGi(i,1); PUSHs(TARG); } STMT_END
| ^~~~~
DBI.c:5279:9: note: in expansion of macro ‘PUSHi’
5279 | PUSHi((IV)RETVAL);
| ^~~~~
DBI.xs: In function ‘XS_DBI__var_FETCH’:
DBI.xs:5025:9: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
5025 | call_sv((SV*)GvCV(imp_gv), GIMME);
| ^~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/proto.h:1031:1: note: declared here
1031 | Perl_dowantarray(pTHX)
| ^~~~~~~~~~~~~~~~
DBI.c: In function ‘XS_DBD_____db_preparse’:
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:2496:33: warning: cast from function call of type ‘IV’ {aka ‘long int’} to non-matching type ‘void *’ [-Wbad-function-cast]
2496 | # define INT2PTR(any,d) (any)(d)
| ^
DBI.c:5425:19: note: in expansion of macro ‘INT2PTR’
5425 | foo = INT2PTR(void *,SvIV(ST(4)))
| ^~~~~~~
DBI.xs: In function ‘XS_DBD_____st__set_fbav’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1724:13: note: in expansion of macro ‘UNLIKELY’
1724 | if (UNLIKELY(TAINT_get)) \
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1724:22: note: in expansion of macro ‘TAINT_get’
1724 | if (UNLIKELY(TAINT_get)) \
| ^~~~~~~~~
DBI.xs:5231:13: note: in expansion of macro ‘SvTAINT’
5231 | SvTAINT(AvARRAY(src_av)[i]);
| ^~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4254:52: note: in expansion of macro ‘cBOOL’
4254 | #define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:42: note: in expansion of macro ‘UNLIKELY’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1029:34: note: in expansion of macro ‘cBOOL’
1029 | # define TAINTING_get (cBOOL(UNLIKELY(PL_tainting)))
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1718:51: note: in expansion of macro ‘TAINTING_get’
1718 | #define SvTAINTED_on(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);} }STMT_END
| ^~~~~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/sv.h:1725:13: note: in expansion of macro ‘SvTAINTED_on’
1725 | SvTAINTED_on(sv); \
| ^~~~~~~~~~~~
DBI.xs:5231:13: note: in expansion of macro ‘SvTAINT’
5231 | SvTAINT(AvARRAY(src_av)[i]);
| ^~~~~~~
DBI.c: In function ‘XS_DBD_____common_trace’:
/usr/lib/perl5/5.40.2/core_perl/CORE/handy.h:155:23: warning: cast from function call of type ‘long int’ to non-matching type ‘_Bool’ [-Wbad-function-cast]
155 | #define cBOOL(cbool) ((bool) (cbool))
| ^
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4233:62: note: in definition of macro ‘EXPECT’
4233 | # define EXPECT(expr,val) __builtin_expect(expr,val)
| ^~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:4253:52: note: in expansion of macro ‘cBOOL’
4253 | #define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:485:13: note: in expansion of macro ‘LIKELY’
485 | if (LIKELY( \
| ^~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/perl.h:1028:34: note: in expansion of macro ‘cBOOL’
1028 | # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */
| ^~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:487:28: note: in expansion of macro ‘TAINT_get’
487 | & (do_taint ? !TAINT_get : 1))) \
| ^~~~~~~~~
/usr/lib/perl5/5.40.2/core_perl/CORE/pp.h:556:38: note: in expansion of macro ‘TARGi’
556 | #define PUSHi(i) STMT_START { TARGi(i,1); PUSHs(TARG); } STMT_END
| ^~~~~
DBI.c:6251:9: note: in expansion of macro ‘PUSHi’
6251 | PUSHi((IV)RETVAL);
| ^~~~~
# --- Perl 5.040002 on x86_64-linux-thread-multi
SV = IV(0x30d8848) at 0x30d8858
REFCNT = 1
FLAGS = (ROK,READONLY,PROTECT)
RV = 0x2950948
SV = PVHV(0x320c6d0) at 0x2950948
REFCNT = 1
FLAGS = (OBJECT,SHAREKEYS)
STASH = 0x30e5670 "DBI::dr"
ARRAY = 0x30e8b20 (0:11, 1:2, 2:3)
hash quality = 82.1%
KEYS = 8
FILL = 5
MAX = 15
Elt "Name" HASH = 0x67c43da2
SV = PV(0x292f030) at 0x2959130
REFCNT = 1
FLAGS = (POK,IsCOW,pPOK)
PV = 0x30819e0 "Test"\0
CUR = 4
LEN = 16
COW_REFCNT = 0
Elt "Errstr" HASH = 0xe78994f2
SV = IV(0x2958fa0) at 0x2958fb0
REFCNT = 1
FLAGS = (ROK)
RV = 0x3164c58
SV = PV(0x292efd0) at 0x3164c58
REFCNT = 1
FLAGS = (POK,IsCOW,pPOK)
PV = 0x31657d0 ""\0
CUR = 0
LEN = 16
COW_REFCNT = 1
Elt "Err" HASH = 0xd86fdf47
SV = IV(0x2958f40) at 0x2958f50
REFCNT = 1
FLAGS = (ROK)
RV = 0x3164c40
SV = NULL(0x0) at 0x3164c40
REFCNT = 1
FLAGS = ()
(in cleanup) dbih_getcom handle DBI::dr=HASH(0x2950948) is not a DBI handle (has no magic) during global destruction.
# --- Perl 5.040002 on x86_64-linux-thread-multi
SV = IV(0x1c7168e0) at 0x1c7168f0
REFCNT = 1
FLAGS = (ROK,READONLY,PROTECT)
RV = 0x1cec8a18
SV = PVHV(0x1cff63f0) at 0x1cec8a18
REFCNT = 1
FLAGS = (OBJECT,SHAREKEYS)
STASH = 0x1cece7c0 "DBI::dr"
ARRAY = 0x1ced25f0 (0:10, 1:4, 2:2)
hash quality = 95.8%
KEYS = 8
FILL = 6
MAX = 15
Elt "FetchHashKeyName" HASH = 0x5c30c621
SV = PV(0x1cec7030) at 0x1cec85f8
REFCNT = 1
FLAGS = (POK,IsCOW,pPOK)
PV = 0x1cf4b260 "NAME"\0
CUR = 4
LEN = 16
COW_REFCNT = 2
Elt "TraceLevel" HASH = 0xc2959572
SV = IV(0x1cec85b8) at 0x1cec85c8
REFCNT = 1
FLAGS = (IOK,pIOK)
IV = 0
Elt "Err" HASH = 0x393afde8
SV = IV(0x1cec8690) at 0x1cec86a0
REFCNT = 1
FLAGS = (ROK)
RV = 0x1cf4fce0
SV = NULL(0x0) at 0x1cf4fce0
REFCNT = 1
FLAGS = ()
(in cleanup) dbih_getcom handle DBI::dr=HASH(0x1cec8a18) is not a DBI handle (has no magic) during global destruction.
# --- Perl 5.040002 on x86_64-linux-thread-multi
# --- Perl 5.040002 on x86_64-linux-thread-multi