This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate changes #9259,9260 from maintperl into mainline.
[perl5.git] / run.c
diff --git a/run.c b/run.c
index a4d3ea0..1b1e72b 100644 (file)
--- a/run.c
+++ b/run.c
@@ -90,7 +90,7 @@ Perl_debop(pTHX_ OP *o)
        if (svp)
            PerlIO_printf(Perl_debug_log, "(%s)", SvPV(*svp,n_a));
        else
-           PerlIO_printf(Perl_debug_log, "[%"UVuf"]", o->op_targ);
+           PerlIO_printf(Perl_debug_log, "[%"UVuf"]", (UV)o->op_targ);
        break;
     default:
        break;