/ 
perl-5.42.2
⭐ Starred 2013 / Getopt::Long::Parser
Security Advisories (3)
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.

NAME

Getopt::Long::Parser - Getopt::Long object-oriented interface

SYNOPSIS

use Getopt::Long::Parser;
my $p = Getopt::Long::Parser->new;
$p->configure( %options );
if ( $p->getoptions( @options ) ) { ... }
if ( $p->getoptionsfromarray( \@array, @options ) ) { ... }

Configuration options can be passed to the constructor:

my $p = Getopt::Long::Parser->new( config => [ %options ] );

DESCRIPTION

Getopt::Long::Parser is an object-oriented interface to Getopt::Long. See its documentation for configuration and use.

Note that Getopt::Long and Getopt::Long::Parser are not object-oriented. Getopt::Long::Parser emulates an object-oriented interface, which should be okay for most purposes.

CONSTRUCTOR

my $p = Getopt::Long::Parser->new( %options );

The constructor takes an optional hash with parameters.

config

An array reference with configuration settings. See "Configuring Getopt::Long" in Getopt::Long for all possible settings.

METHODS

In the examples, $p is assumed to be the result of a call to the constructor.

configure

$p->configure( %settings );

Update the current config settings. See "Configuring Getopt::Long" in Getopt::Long for all possible settings.

getoptionsfromarray

my $res = $p->getoptionsfromarray( $aref, @opts );

getoptions

my $res = $p->getoptions( @opts );

The same as getoptionsfromarray( \@ARGV, @opts ).

SEE ALSO

Getopt::Long

AUTHOR

Johan Vromans <jvromans@squirrel.nl>

COPYRIGHT AND DISCLAIMER

This program is Copyright 1990,2015,2023 by Johan Vromans. This program is free software; you can redistribute it and/or modify it under the same terms as Perl.