void
Perl_boot_core_xsutils(pTHX)
{
- char *file = __FILE__;
+ const char file[] = __FILE__;
newXS("attributes::bootstrap", XS_attributes_bootstrap, file);
}
XS(XS_attributes_bootstrap)
{
dXSARGS;
- char *file = __FILE__;
+ const char file[] = __FILE__;
if( items > 1 )
Perl_croak(aTHX_ "Usage: attributes::bootstrap $module");