/ 
perl-5.45.1
⭐ Starred 2013 / Amiga::Exec
Security Advisories (1)
CVE-2026-15534 (2026-08-09)

Perl versions through 5.45.1 have out-of-bounds heap reads and writes during regular expression matching via an undersized superlinear cache in S_regmatch. The regex engine's superlinear cache holds one bit per subject position for each participating WHILEM node, so the bit count is the subject length plus one times the number of nodes. Nothing checks that product for positive overflow of the signed 32-bit count: a 286331153 byte subject matched against a pattern with 15 participating nodes stores the count as 14, leaving a two byte cache. The cache is then indexed from the real match position and node number, so reads go past the end of the allocation, and on failure CACHEsayNO sets a bit past it. A caller that matches an attacker controlled subject of this size against a pattern of this shape can crash the process or corrupt heap memory.

NAME

Amiga::Exec - Perl extension for low level amiga support

ABSTRACT

This a perl class / module to enables you to use various low level Amiga features such as waiting on an Exec signal

SYNOPSIS

# Wait for signla

use Amiga::Exec;
my $result = Amiga::ARexx->Wait('SignalMask' => $signalmask,
                                'TimeOut' => $timeoutinusecs);

DESCRIPTION

The interface to Exec in entirely encapsulated within the perl class, there is no need to access the low level methods directly and they are not exported by default.

Amiga::ARexx METHODS

Wait

$signals = Amiga::Exec->Wait('SignalMask' => $signalmask,
                             'TimeOut' => $timeoutinusecs );

Wait on a signal set with optional timeout. The result ($signals) should be checked to determine which signal was raised. It will be 0 for timeout.

Signal

The signal Exec signal mask

TimeOut

optional time out in microseconds.

EXPORT

None by default.

Exportable constants

None

AUTHOR

Andy Broad <andy@broad.ology.org.uk>

COPYRIGHT AND LICENSE

Copyright (C) 2013 by Andy Broad.