========================================================================
CVE-2026-117500                                      CPAN Security Group
========================================================================

         CVE ID:  CVE-2026-117500

   Distribution:  HTTP-Body
       Versions:  before 1.24_01
       MetaCPAN:  https://metacpan.org/dist/HTTP-Body
       VCS Repo:  https://github.com/libwww-perl/HTTP-Body

HTTP::Body versions before 1.24_01 for Perl allow CPU exhaustion via
regex backtracking on the filename of a multipart upload

Description
-----------
HTTP::Body versions before 1.24_01 for Perl allow CPU exhaustion via
regex backtracking on the filename of a multipart upload.

For every file part, the multipart parser finds the suffix of the
uploaded filename by matching the default $basename_regexp,
qr/[^.]+(\.[^\\\/]+)$/, against the whole basename. A basename made of
many dots and ending in a backslash makes the regex backtrack in time
quadratic in its length.

A remote attacker can exhaust CPU with one request, as a basename of
about 32 KB takes several seconds to match and every file part is
matched separately.

Problem types
-------------
- CWE-1333 Inefficient Regular Expression Complexity

Solutions
---------
Upgrade to HTTP-Body 1.24_01 or later.

References
----------
https://github.com/libwww-perl/HTTP-Body/commit/9ab46daaede02fb13ea55a7e3ede34c8b918d8ca.patch
https://github.com/libwww-perl/HTTP-Body/commit/3abc958d78bd84bf4abb87bad79b9432eab7e694.patch
https://metacpan.org/release/GETTY/HTTP-Body-1.24_01/changes