diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-09-11 21:27:07 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-09-11 21:27:07 +0000 |
| commit | 4a9e32d883a2352f4baeab6cfa9a5ebeadedb121 (patch) | |
| tree | 8624f27f8feb04ea23df36cfc7edd9f2e0da64a4 /universal.c | |
| parent | 515a4f721c0a11d47b9b2ea994989f977659c68b (diff) | |
| download | perl-4a9e32d883a2352f4baeab6cfa9a5ebeadedb121.tar.gz | |
Use 1 line of code in place of 6 in Perl_sv_derived_from().
p4raw-id: //depot/perl@34350
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/universal.c b/universal.c index c6de960d34..3e52535312 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; } /* |