diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 05:48:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 05:48:16 +0000 |
| commit | 411caa507cab4ba311ec4000c486ad2592d51146 (patch) | |
| tree | 1528f3b10157445edf526b3779d7a7733f181fae /universal.c | |
| parent | 8fed10cdafa32ef4e1990378c72a599fc726f7a0 (diff) | |
| download | perl-411caa507cab4ba311ec4000c486ad2592d51146.tar.gz | |
dTHR is a nop in 5.6.0 onwards. Ergo, it can go.
p4raw-id: //depot/perl@7984
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 0899b1a601..12d31e58b1 100644 --- a/universal.c +++ b/universal.c @@ -74,7 +74,6 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, int len, int level) SV* sv = *svp++; HV* basestash = gv_stashsv(sv, FALSE); if (!basestash) { - dTHR; if (ckWARN(WARN_MISC)) Perl_warner(aTHX_ WARN_SYNTAX, "Can't locate package %s for @%s::ISA", |