This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "fix attributes memcmp without len<6 (asan catch)"
authorSteve Hay <steve.m.hay@googlemail.com>
Sat, 10 Jan 2015 15:29:26 +0000 (15:29 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Sat, 10 Jan 2015 16:06:32 +0000 (16:06 +0000)
This reverts commit ff5314c5aa54b172122507017cac034acf1c4bf7.

As noted by Andy Dougherty in #122629 the problem that this fixes
was already fixed more succinctly in dd369969a/#122701.

ext/attributes/attributes.pm
ext/attributes/attributes.xs

index 6ca9ce5..ebca214 100644 (file)
@@ -1,6 +1,6 @@
 package attributes;
 
-our $VERSION = 0.24;
+our $VERSION = 0.23;
 
 @EXPORT_OK = qw(get reftype);
 @EXPORT = ();
index c131734..6b36812 100644 (file)
@@ -97,7 +97,7 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
            }
            break;
        default:
-           if (len == 6 && memEQs(name, len, "shared")) {
+           if (memEQs(name, len, "shared")) {
                        if (negated)
                            Perl_croak(aTHX_ "A variable may not be unshared");
                        SvSHARE(sv);