diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-22 04:18:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-22 04:18:39 +0000 |
| commit | aca069ec24d9d45b6471cdbd86821d2695758021 (patch) | |
| tree | dfed10389371b602b2c9f86dc62c52ae73235a3e /universal.c | |
| parent | 732aff91a557a599d8054bbc527a6aae5e3c32c4 (diff) | |
| download | perl-aca069ec24d9d45b6471cdbd86821d2695758021.tar.gz | |
UMRs in universal.c (SvCUR() may not be there unless SvPOK())
p4raw-id: //depot/perl@5866
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 686d9f8610..fc0ec41fb7 100644 --- a/universal.c +++ b/universal.c @@ -142,7 +142,7 @@ XS(XS_UNIVERSAL_isa) if (SvGMAGICAL(sv)) mg_get(sv); - if (!SvOK(sv) || !(SvROK(sv) || SvCUR(sv))) + if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv)))) XSRETURN_UNDEF; name = (char *)SvPV(ST(1),n_a); @@ -168,7 +168,7 @@ XS(XS_UNIVERSAL_can) if (SvGMAGICAL(sv)) mg_get(sv); - if (!SvOK(sv) || !(SvROK(sv) || SvCUR(sv))) + if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv)))) XSRETURN_UNDEF; name = (char *)SvPV(ST(1),n_a); |