From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 11 Sep 2008 21:27:07 +0000 (+0000)
Subject: Use 1 line of code in place of 6 in Perl_sv_derived_from().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a9e32d883a2352f4baeab6cfa9a5ebeadedb121;p=p5sagit%2Fp5-mst-13.2.git

Use 1 line of code in place of 6 in Perl_sv_derived_from().

p4raw-id: //depot/perl@34350
---

diff --git a/universal.c b/universal.c
index c6de960..3e52535 100644
--- a/universal.c
+++ b/universal.c
@@ -116,12 +116,7 @@ Perl_sv_derived_from(pTHX_ SV *sv, const char *const name)
         stash = gv_stashsv(sv, 0);
     }
 
-    if (stash) {
-	return isa_lookup(stash, name);
-    }
-    else
-	return FALSE;
-
+    return stash ? isa_lookup(stash, name) : FALSE;
 }
 
 /*