tkCanvText.c: incompatible pointer type in function ‘GetTextIndex’

[jplesnik]

Build of perl-Tk-804.036 failed with error in Fedora Rawhide/40:

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 *’}

Build log could be found here.