summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-03-10 17:58:43 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-10 17:58:43 +0000
commit042f6df8b20f27c0fa72dac2d0caa2a723eb03d2 (patch)
treec81449326413cc766a678178d21fa836d26cca9b /op.c
parentb178108dc470b74242476037c9116c4f327f151d (diff)
downloadperl-042f6df8b20f27c0fa72dac2d0caa2a723eb03d2.tar.gz
Unused.
p4raw-id: //depot/perl@15147
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 5b1156724c..d0d3103c33 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