1 files changed, 3 insertions, 0 deletions
diff --git a/perlio.c b/perlio.c
index b7f2b14be7..597bf78afc 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4103,6 +4103,9 @@ void
 PerlIOBuf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
 {
     PerlIOBuf * const b = PerlIOSelf(f, PerlIOBuf);
+#ifndef DEBUGGING
+    PERL_UNUSED_ARG(cnt);
+#endif
     if (!b->buf)
 	PerlIO_get_base(f);
     b->ptr = ptr;