This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unused.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 10 Mar 2002 17:58:43 +0000 (17:58 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 10 Mar 2002 17:58:43 +0000 (17:58 +0000)
p4raw-id: //depot/perl@15147

op.c

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