From: Gerard Goossen <gerard@ggoossen.net>
Date: Thu, 12 Nov 2009 13:36:44 +0000 (+0100)
Subject: Add missing LEAVE to universal.c sv_does
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ce46f2a0128e34d69ce27707a88af47a4f0160b;p=p5sagit%2Fp5-mst-13.2.git

Add missing LEAVE to universal.c sv_does
---

diff --git a/universal.c b/universal.c
index 4da6fc5..941587d 100644
--- a/universal.c
+++ b/universal.c
@@ -172,8 +172,10 @@ Perl_sv_does(pTHX_ SV *sv, const char *const name)
     SvGETMAGIC(sv);
 
     if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv))
-		|| (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv))))
+	    || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv)))) {
+	LEAVE;
 	return FALSE;
+    }
 
     if (sv_isobject(sv)) {
 	classname = sv_reftype(SvRV(sv),TRUE);
@@ -181,8 +183,10 @@ Perl_sv_does(pTHX_ SV *sv, const char *const name)
 	classname = SvPV_nolen(sv);
     }
 
-    if (strEQ(name,classname))
+    if (strEQ(name,classname)) {
+	LEAVE;
 	return TRUE;
+    }
 
     PUSHMARK(SP);
     XPUSHs(sv);