fix off-by-two error in List::Util
authorDavid Mitchell <davem@iabyn.com>
Sun, 24 Feb 2013 15:45:48 +0000 (15:45 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 24 Feb 2013 20:25:16 +0000 (20:25 +0000)
A string literal is being used that includes two bytes beyond the
end of the string.

cpan/List-Util/ListUtil.xs

index 7da9b95..eacdde4 100644 (file)
@@ -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));