diff options
author | David Mitchell <davem@iabyn.com> | 2013-02-24 15:45:48 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-02-24 20:25:16 +0000 |
commit | 623a911da450f8f4f1f400cb2c291c7898aecbd1 (patch) | |
tree | fb065c4310fcf2df721ee26593aba45c4e433f5c | |
parent | cb6b835eae3b0d12137423873dd6dfe20e32c909 (diff) | |
download | perl-623a911da450f8f4f1f400cb2c291c7898aecbd1.tar.gz |
fix off-by-two error in List::Util
A string literal is being used that includes two bytes beyond the
end of the string.
-rw-r--r-- | cpan/List-Util/ListUtil.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/List-Util/ListUtil.xs b/cpan/List-Util/ListUtil.xs index 7da9b959d1..eacdde4b58 100644 --- a/cpan/List-Util/ListUtil.xs +++ b/cpan/List-Util/ListUtil.xs @@ -595,7 +595,7 @@ BOOT: varav = GvAVn(vargv); #endif if (SvTYPE(rmcgv) != SVt_PVGV) - gv_init(rmcgv, lu_stash, "List::Util", 12, TRUE); + gv_init(rmcgv, lu_stash, "List::Util", 10, TRUE); rmcsv = GvSVn(rmcgv); #ifndef SvWEAKREF av_push(varav, newSVpv("weaken",6)); |