1 files changed, 2 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index 46efa2aa50..cc13c23a88 100644
--- a/perl.c
+++ b/perl.c
@@ -281,8 +281,8 @@ perl_destruct(pTHXx)
 	    goto retry_cleanup;
 	default:
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "perl_destruct: ignoring %p (state %u)\n",
-				  t, ThrSTATE(t)));
+				  "perl_destruct: ignoring %p (state %"UVuf")\n",
+				  t, (UV)ThrSTATE(t)));
 	    MUTEX_UNLOCK(&t->mutex);
 	    /* fall through and out */
 	}