diff options
author | Karl Williamson <khw@cpan.org> | 2019-11-18 14:28:30 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-11-18 14:39:42 -0700 |
commit | f1d561b5fe9f8c282524ed30fe0e1e0caa549e88 (patch) | |
tree | ff070000b9c7126176b77cf63962da6c69064a47 /doop.c | |
parent | 3575137f59e2042b43b9baffcb2ec0dca1fd0255 (diff) | |
download | perl-f1d561b5fe9f8c282524ed30fe0e1e0caa549e88.tar.gz |
Clean up -Dy debugging
Commit 5d7580af4b14229eafb27db9b7a34b8b918876b4 didn't have it quite
right.
Diffstat (limited to 'doop.c')
-rw-r--r-- | doop.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -105,7 +105,7 @@ S_do_trans_simple(pTHX_ SV * const sv, const OPtrans_map * const tbl) SvUTF8_on(sv); SvSETMAGIC(sv); } - DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %" IVdf "\n", + DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %zu\n", __FILE__, __LINE__, matches)); DEBUG_y(sv_dump(sv)); return matches; @@ -159,7 +159,7 @@ S_do_trans_count(pTHX_ SV * const sv, const OPtrans_map * const tbl) } } - DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: count returning %" IVdf "\n", + DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: count returning %zu\n", __FILE__, __LINE__, matches)); return matches; } @@ -312,7 +312,7 @@ S_do_trans_complex(pTHX_ SV * const sv, const OPtrans_map * const tbl) SvUTF8_on(sv); } SvSETMAGIC(sv); - DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %" IVdf "\n", + DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %zu\n", __FILE__, __LINE__, matches)); DEBUG_y(sv_dump(sv)); return matches; @@ -386,7 +386,7 @@ S_do_trans_count_invmap(pTHX_ SV * const sv, AV * const invmap) s += s_len; } - DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %" IVdf "\n", + DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %zu\n", __FILE__, __LINE__, matches)); return matches; } @@ -573,7 +573,7 @@ S_do_trans_invmap(pTHX_ SV * const sv, AV * const invmap) } SvSETMAGIC(sv); - DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %" IVdf "\n", + DEBUG_y(PerlIO_printf(Perl_debug_log, "%s: %d: returning %zu\n", __FILE__, __LINE__, matches)); DEBUG_y(sv_dump(sv)); return matches; |