From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 10 Mar 2002 17:58:43 +0000 (+0000)
Subject: Unused.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=042f6df8b20f27c0fa72dac2d0caa2a723eb03d2;p=p5sagit%2Fp5-mst-13.2.git

Unused.

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

diff --git a/op.c b/op.c
index 5b11567..d0d3103 100644
--- a/op.c
+++ b/op.c
@@ -925,9 +925,9 @@ S_cop_free(pTHX_ COP* cop)
 	SvREFCNT_dec(cop->cop_warnings);
     if (! specialCopIO(cop->cop_io)) {
 #ifdef USE_ITHREADS
+#if 0
 	STRLEN len;
         char *s = SvPV(cop->cop_io,len);
-#if 0
 	Perl_warn(aTHX_ "io='%.*s'",(int) len,s); /* ??? --jhi */
 #endif
 #else