diff options
| author | Karl Williamson <khw@cpan.org> | 2019-03-20 22:58:38 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-03-21 10:50:01 -0600 |
| commit | 19ee3daf45fd9f6312e89aeae0bc6dc8563e6c4a (patch) | |
| tree | 7f900cec204ee34a97089986850f145cb4e1222b /locale.c | |
| parent | c0227122a5447e00b1f129874141e867a945afc2 (diff) | |
| download | perl-19ee3daf45fd9f6312e89aeae0bc6dc8563e6c4a.tar.gz | |
Add, improve some debugging stmts for -DL (locales)
Diffstat (limited to 'locale.c')
| -rw-r--r-- | locale.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1048,7 +1048,11 @@ S_emulate_setlocale(const int category, # ifdef DEBUGGING if (DEBUG_Lv_TEST || debug_initialization) { - PerlIO_printf(Perl_debug_log, "%s:%d: emulate_setlocale created %p; should have freed %p\n", __FILE__, __LINE__, new_obj, old_obj); + PerlIO_printf(Perl_debug_log, "%s:%d: emulate_setlocale created %p", __FILE__, __LINE__, new_obj); + if (old_obj) { + PerlIO_printf(Perl_debug_log, "; should have freed %p", old_obj); + } + PerlIO_printf(Perl_debug_log, "\n"); } # endif |