make the file name stored in the lock on debugging builds
be const char* rather than char*, so that passing __FILE__ doesn't give
lots of
shared.xs:1287:323: warning: deprecated conversion from string
constant to 'char *' [-Wwrite-strings]
I32 locks;
perl_cond cond;
#ifdef DEBUG_LOCKS
- char * file;
+ const char * file;
int line;
#endif
} recursive_lock_t;
}
void
-recursive_lock_acquire(pTHX_ recursive_lock_t *lock, char *file, int line)
+recursive_lock_acquire(pTHX_ recursive_lock_t *lock, const char *file, int line)
{
PERL_UNUSED_ARG(file);
PERL_UNUSED_ARG(line);