Unused.

p4raw-id: //depot/perl@15147

diff --git a/op.c b/op.c
index 5b11567..d0d3103 100644 (file)
--- 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