summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-12-05 05:48:16 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-12-05 05:48:16 +0000
commit411caa507cab4ba311ec4000c486ad2592d51146 (patch)
tree1528f3b10157445edf526b3779d7a7733f181fae /pp.c
parent8fed10cdafa32ef4e1990378c72a599fc726f7a0 (diff)
downloadperl-411caa507cab4ba311ec4000c486ad2592d51146.tar.gz
dTHR is a nop in 5.6.0 onwards. Ergo, it can go.
p4raw-id: //depot/perl@7984
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 10e6c6aa99..c512db3d98 100644
--- a/pp.c
+++ b/pp.c
@@ -1792,7 +1792,6 @@ S_seed(pTHX)
#define SEED_C3 269
#define SEED_C5 26107
- dTHR;
#ifndef PERL_NO_DEV_RANDOM
int fd;
#endif
@@ -5338,7 +5337,6 @@ PP(pp_split)
void
Perl_unlock_condpair(pTHX_ void *svv)
{
- dTHR;
MAGIC *mg = mg_find((SV*)svv, 'm');
if (!mg)