/ 
perl-5.42.0
⭐ Starred 2013 / Test2::EventFacet::Control
Security Advisories (2)
CVE-2026-4176 (2026-03-29)

Perl versions from 5.9.4 before 5.40.4-RC1, from 5.41.0 before 5.42.2-RC1, from 5.43.0 before 5.43.9 contain a vulnerable version of Compress::Raw::Zlib. Compress::Raw::Zlib is included in the Perl package as a dual-life core module, and is vulnerable to CVE-2026-3381 due to a vendored version of zlib which has several vulnerabilities, including CVE-2026-27171. The bundled Compress::Raw::Zlib was updated to version 2.221 in Perl blead commit c75ae9cc164205e1b6d6dbd57bd2c65c8593fe94.

CVE-2026-8376 (2026-05-25)

Perl versions through 5.43.10 have a heap buffer overflow when compiling regular expressions with a repeated fixed string on 32-bit builds. Perl_study_chunk in regcomp_study.c checked the size of the joined substring buffer in characters rather than bytes. For a quantified fixed substring with a large minimum count, the byte length mincount * l could overflow SSize_t, producing an undersized SvGROW allocation; the subsequent copy writes past the end of the buffer. A caller that compiles an attacker-controlled regular expression on a 32-bit perl build triggers a heap buffer overflow at compile time.

NAME

Test2::EventFacet::Control - Facet for hub actions and behaviors.

DESCRIPTION

This facet is used when the event needs to give instructions to the Test2 internals.

FIELDS

$string = $control->{details}
$string = $control->details()

Human readable explanation for the special behavior.

$bool = $control->{global}
$bool = $control->global()

True if the event is global in nature and should be seen by all hubs.

$exit = $control->{terminate}
$exit = $control->terminate()

Defined if the test should immediately exit, the value is the exit code and may be 0.

$bool = $control->{halt}
$bool = $control->halt()

True if all testing should be halted immediately.

$bool = $control->{has_callback}
$bool = $control->has_callback()

True if the callback($hub) method on the event should be called.

$encoding = $control->{encoding}
$encoding = $control->encoding()

This can be used to change the encoding from this event onward.

$phase = $control->{phase}
$phase = $control->phase()

Used to signal that a phase change has occurred. Currently only the perl END phase is signaled.

SOURCE

The source code repository for Test2 can be found at https://github.com/Test-More/test-more/.

MAINTAINERS

Chad Granum <exodist@cpan.org>

AUTHORS

Chad Granum <exodist@cpan.org>

COPYRIGHT

Copyright Chad Granum <exodist@cpan.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See https://dev.perl.org/licenses/