/ 
perl-5.42.0
⭐ Starred 2013 / MakeMaker::Test::Utils
Security Advisories (4)
CVE-2026-13221 (2026-07-13)

Perl versions through 5.43.9 produce silently incorrect regular expression matches when an alternation of more than 65535 fixed string branches is compiled into a trie in Perl_study_chunk. When such branches are combined into a trie, the delta between the first branch and the shared tail is stored in a 16-bit field. A branch count above 65535 overflows the field, and the trie's match decision table is truncated with no warning or error. A pattern of this shape produces false positive matches (matching strings it should not) and false negative matches (failing to match strings it should). When such a pattern gates an access or filtering decision, the result is wrong.

CVE-2026-57432 (2026-07-13)

Perl versions through 5.43.10 have an integer overflow in S_measure_struct leading to an out-of-bounds heap read in pack and unpack. S_measure_struct adds each item's size times its repeat count to a running total with no overflow check, so a large repeat count in a pack or unpack template wraps the signed SSize_t total negative. The @, X, and x position codes then guard their moves with a signed length comparison that passes when the length is negative, advancing the buffer pointer out of bounds. A template derived from untrusted input can read heap memory past the buffer and return it to the caller.

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.

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.

NAME

MakeMaker::Test::Utils - Utility routines for testing MakeMaker

SYNOPSIS

use MakeMaker::Test::Utils;

my $perl     = which_perl;
perl_lib;

my $makefile      = makefile_name;
my $makefile_back = makefile_backup;

my $make          = make;
my $make_run      = make_run;
make_macro($make, $targ, %macros);

my $mtime         = calibrate_mtime;

my $out           = run($cmd);

my $have_compiler = have_compiler();

my $text          = slurp($filename);

DESCRIPTION

A consolidation of little utility functions used throughout the MakeMaker test suite.

Functions

The following are exported by default.

which_perl
my $perl = which_perl;

Returns a path to perl which is safe to use in a command line, no matter where you chdir to.

perl_lib
perl_lib;

Sets up environment variables so perl can find its libraries.

makefile_name
my $makefile = makefile_name;

MakeMaker doesn't always generate 'Makefile'. It returns what it should generate.

makefile_backup
my $makefile_old = makefile_backup;

Returns the name MakeMaker will use for a backup of the current Makefile.

make
my $make = make;

Returns a good guess at the make to run.

make_run
my $make_run = make_run;

Returns the make to run as with make() plus any necessary switches.

make_macro
my $make_cmd = make_macro($make, $target, %macros);

Returns the command necessary to run $make on the given $target using the given %macros.

my $make_test_verbose = make_macro(make_run(), 'test',
                                   TEST_VERBOSE => 1);

This is important because VMS's make utilities have a completely different calling convention than Unix or Windows.

%macros is actually a list of tuples, so the order will be preserved.

calibrate_mtime
my $mtime = calibrate_mtime;

When building on NFS, file modification times can often lose touch with reality. This returns the mtime of a file which has just been touched.

run
my $out = run($command);
my @out = run($command);

Runs the given $command as an external program returning at least STDOUT as $out. If possible it will return STDOUT and STDERR combined as you would expect to see on a screen.

run_ok
my @out = run_ok($cmd);

Like run() but it tests that the result exited normally.

The output from run() will be used as a diagnostic if it fails.

have_compiler
$have_compiler = have_compiler;

Returns true if there is a compiler available for XS builds.

slurp
$contents = slurp($filename);

Returns the $contents of $filename.

Will die if $filename cannot be opened.

write_file
write_file('filename', @contents);

Writes the content to the given file. Will die if errors occur.

hash2files
hash2files('dirname', { 'filename' => 'some content' });

Goes through given hash-ref, treating each key as a /-separated filename under the specified directory, and writing the value into it. Will create any necessary directories.

Will die if errors occur.

in_dir
$retval = in_dir(\&coderef);
$retval = in_dir(\&coderef, $specified_dir);
$retval = in_dir { somecode(); };
$retval = in_dir { somecode(); } $specified_dir;

Does a chdir to either a directory. If none is specified, one is created with File::Temp and then automatically deleted after. It ends by chdiring back to where it started.

If the given code throws an exception, it will be re-thrown after the re-chdir.

Returns the return value of the given code.

AUTHOR

Michael G Schwern <schwern@pobox.com>