diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2014-07-13 08:20:31 -0400 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-06-11 14:46:06 +1000 |
commit | 4b523e790cc5594fb19013dc23adfb6a5b34f824 (patch) | |
tree | 3646f84f3844b0eba00aa18db0fa15479c2221be /universal.c | |
parent | 26fd36cc4555411f2f78ef8d28236ddb60fd0a67 (diff) | |
download | perl-4b523e790cc5594fb19013dc23adfb6a5b34f824.tar.gz |
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
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 2 |
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; |