clean up sv_isobject usage

-previous usage proves getmagic is unnecessary or ignored or already called
  S_do_smartmatch
  Perl_sv_does_sv

-in pp_dbmopen dont call sv_isobject twice in a row on the same SV in 1
 permutation

1 files changed, 1 insertions, 1 deletions

diff --git a/universal.c b/universal.c
index 4b650c5e9e..58b010b4d5 100644
--- a/universal.c
+++ b/universal.c
@@ -205,7 +205,7 @@ Perl_sv_does_sv(pTHX_ SV *sv, SV *namesv, U32 flags)
 	return FALSE;
     }
 
-    if (sv_isobject(sv)) {
+    if (SvROK(sv) && SvOBJECT(SvRV(sv))) {
 	classname = sv_ref(NULL,SvRV(sv),TRUE);
     } else {
 	classname = sv;