X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=universal.c;h=9bf3efcb6e398393b7a4ebbf7f79aa609cc673d3;hb=333f433b6bc052819c91a73e390fb65b29161409;hp=2707e46d89209219e657271a612801724bd9dace;hpb=599cee73f2261c5e09cde7ceba3f9a896989e117;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/universal.c b/universal.c
index 2707e46..9bf3efc 100644
--- a/universal.c
+++ b/universal.c
@@ -53,6 +53,7 @@ isa_lookup(HV *stash, char *name, int len, int level)
 		SV* sv = *svp++;
 		HV* basestash = gv_stashsv(sv, FALSE);
 		if (!basestash) {
+		    dTHR;
 		    if (ckWARN(WARN_MISC))
 			warner(WARN_SYNTAX,
 		             "Can't locate package %s for @%s::ISA",