Storable versions before 3.05 for Perl has a stack overflow. The retrieve_hook function stored the length of the class name into a signed integer but in read operations treated the length as unsigned. This allowed an attacker to craft data that could trigger the overflow.

• https://github.com/Perl/perl5/issues/15831
• https://github.com/Perl/perl5/commit/a258c17c6937f79529c8319a829310e09cdbd216.patch
• https://metacpan.org/release/RURBAN/Storable-3.05/changes
• https://www.nntp.perl.org/group/perl.perl5.porters/2017/01/msg242533.html
• https://www.nntp.perl.org/group/perl.perl5.porters/2017/01/msg242703.html

Malcrafted storable files or buffers.

• https://metacpan.org/release/RURBAN/Storable-3.05/changes

Storable versions before 3.41 for Perl have a signed integer overflow when deserializing a crafted SX_HOOK record. retrieve_hook_common reads a signed 32-bit item count from an SX_HOOK record and calls av_extend with that count plus one. A count of I32_MAX wraps the addition to a negative value. A crafted blob passed to thaw or retrieve triggers the overflow; av_extend receives the negative count and dies with a panic, terminating the deserialization.

• https://github.com/Perl/perl5/commit/e4f681784bcdeaa91ff02a2fa4cdcae5c46779d7.patch