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 (file)
--- 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;
 }
 
 /*