diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-01-08 23:27:26 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-01-08 23:27:26 +0000 |
commit | 5b9081af6a5719eb37dba6bb53ddea5706deea1f (patch) | |
tree | e3d3d161923e2bdd1f8d119350b1183567908f11 /dump.c | |
parent | 7c09933ca11590e6a36fb0c235b6660a8b3c341d (diff) | |
download | perl-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.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -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"); |