diff options
| author | Reini Urban <rurban@x-ray.at> | 2014-10-07 15:44:27 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-10-08 10:18:45 +1100 |
| commit | ff5314c5aa54b172122507017cac034acf1c4bf7 (patch) | |
| tree | 0934e37270b436263ce09926be58d4fccb5fc246 /ext/attributes | |
| parent | ec015202b887bc1ede4b6538364b88eb80c4956d (diff) | |
| download | perl-ff5314c5aa54b172122507017cac034acf1c4bf7.tar.gz | |
fix attributes memcmp without len<6 (asan catch)
Diffstat (limited to 'ext/attributes')
| -rw-r--r-- | ext/attributes/attributes.pm | 2 | ||||
| -rw-r--r-- | ext/attributes/attributes.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/attributes/attributes.pm b/ext/attributes/attributes.pm index ebca214608..6ca9ce5c9c 100644 --- a/ext/attributes/attributes.pm +++ b/ext/attributes/attributes.pm @@ -1,6 +1,6 @@ package attributes; -our $VERSION = 0.23; +our $VERSION = 0.24; @EXPORT_OK = qw(get reftype); @EXPORT = (); diff --git a/ext/attributes/attributes.xs b/ext/attributes/attributes.xs index 6b36812b13..c131734c63 100644 --- a/ext/attributes/attributes.xs +++ b/ext/attributes/attributes.xs @@ -97,7 +97,7 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) } break; default: - if (memEQs(name, len, "shared")) { + if (len == 6 && memEQs(name, len, "shared")) { if (negated) Perl_croak(aTHX_ "A variable may not be unshared"); SvSHARE(sv); |