summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-01-08 23:27:26 +0000
committerNicholas Clark <nick@ccl4.org>2007-01-08 23:27:26 +0000
commit5b9081af6a5719eb37dba6bb53ddea5706deea1f (patch)
treee3d3d161923e2bdd1f8d119350b1183567908f11 /dump.c
parent7c09933ca11590e6a36fb0c235b6660a8b3c341d (diff)
downloadperl-5b9081af6a5719eb37dba6bb53ddea5706deea1f.tar.gz
Eliminate pp_threadsv, as it was only ever used by 5005 threads.
p4raw-id: //depot/perl@29727
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c8
1 files changed, 0 insertions, 8 deletions
diff --git a/dump.c b/dump.c
index 1972efff28..ea81ce80e4 100644
--- a/dump.c
+++ b/dump.c
@@ -923,10 +923,6 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
if (o->op_private & OPpSORT_REVERSE)
sv_catpv(tmpsv, ",REVERSE");
}
- else if (optype == OP_THREADSV) {
- if (o->op_private & OPpDONE_SVREF)
- sv_catpv(tmpsv, ",SVREF");
- }
else if (optype == OP_OPEN || optype == OP_BACKTICK) {
if (o->op_private & OPpOPEN_IN_RAW)
sv_catpv(tmpsv, ",IN_RAW");
@@ -2664,10 +2660,6 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o)
if (o->op_private & OPpSORT_REVERSE)
sv_catpv(tmpsv, ",REVERSE");
}
- else if (o->op_type == OP_THREADSV) {
- if (o->op_private & OPpDONE_SVREF)
- sv_catpv(tmpsv, ",SVREF");
- }
else if (o->op_type == OP_OPEN || o->op_type == OP_BACKTICK) {
if (o->op_private & OPpOPEN_IN_RAW)
sv_catpv(tmpsv, ",IN_RAW");