cc -c  -I..  -I. -Ibitmaps  -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2 -O2   -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC -DNeedWidePrototypes=1 "-I/home/giz/perl5/perlbrew/perls/perl-5.40.0/lib/5.40.0/x86_64-linux/CORE"    tkCanvPs.c
cc -c  -I..  -I. -Ibitmaps  -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2 -O2   -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC -DNeedWidePrototypes=1 "-I/home/giz/perl5/perlbrew/perls/perl-5.40.0/lib/5.40.0/x86_64-linux/CORE"    tkCanvText.c
tkCanvText.c: In function ‘GetTextIndex’:
tkCanvText.c:1253:40: error: passing argument 2 of ‘TcldeclsVptr->V_Tcl_GetStringFromObj’ from incompatible pointer type [-Wincompatible-pointer-types]
 1253 |     string = Tcl_GetStringFromObj(obj, &length);
      |                                        ^~~~~~~
      |                                        |
      |                                        size_t * {aka long unsigned int *}
tkCanvText.c:1253:40: note: expected ‘int *’ but argument is of type ‘size_t *’ {aka ‘long unsigned int *’}
make[1]: *** [Makefile:865: tkCanvText.o] Error 1
make[1]: Leaving directory '/home/giz/.cpanm/work/1719011242.11417/Tk-804.036/pTk'
make: *** [Makefile:1658: pTk/libpTk.a] Error 2
[giz@daisy Tk-804.036$