From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Tue, 12 Feb 2008 10:00:18 +0000 (-0500)
Subject: Unused var in perlio.c (revised)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=babfacb9bd93a47857db18ca6a2ffb50458aefb3;p=p5sagit%2Fp5-mst-13.2.git

Unused var in perlio.c (revised)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510802120700q689fb457ya5939bb440626157@mail.gmail.com>

p4raw-id: //depot/perl@33296
---

diff --git a/perlio.c b/perlio.c
index b7f2b14..597bf78 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;