This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hv.c: use new SvPVCLEAR and constant string friendly macros
authorYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 09:14:26 +0000 (11:14 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 11:28:01 +0000 (13:28 +0200)
hv.c

diff --git a/hv.c b/hv.c
index ad7802c..7d9579c 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1199,7 +1199,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
                         sv_2mortal((SV *)gv)
                        );
                }
-               else if (klen == 3 && strnEQ(key, "ISA", 3) && GvAV(gv)) {
+               else if (klen == 3 && strEQs(key, "ISA") && GvAV(gv)) {
                     AV *isa = GvAV(gv);
                     MAGIC *mg = mg_find((SV*)isa, PERL_MAGIC_isa);