/ 
HTML-FormFu-2.07
/ HTML::FormFu::Deflator::CompoundSplit
Security Advisories (1)
CVE-2026-19873 (2026-08-31)

HTML::FormFu versions through 2.08 for Perl allow resource exhaustion via an unbounded repeat count from the query string in Repeatable elements. When a Repeatable element has counter_name set, its process method reads the repeat count from the named query string parameter, checks only that it is a positive integer, and passes it to repeat, which deep-clones the element's child subtree once per iteration. Nothing caps the value, and no attribute lets an application impose a limit. The count is read on every request, before the form decides whether it was submitted, so a plain GET reaches the clone loop with no credentials, no session and no request body. Nesting multiplies: a Repeatable inside a Repeatable takes a counter at each level, so an outer and an inner value of 100 build 10,000 clones. Once the form is submitted, each cloned field's constraints scan the whole element tree in _find_field_value, so cost grows faster than linearly with the count. A single request exhausts memory and CPU. The latest release on CPAN is 2.07, from 2018. Version 2.08 exists only in the git repository.

NAME

HTML::FormFu::Deflator::CompoundSplit - CompoundSplit deflator

VERSION

version 2.07

SYNOPSIS

---
element:
  - type: Multi
    name: address

    elements:
      - name: number
      - name: street

    deflator:
      - type: CompoundSplit

# set the default

$form->get_field('address')->default( $address );

DESCRIPTION

Deflator to allow you to set several field's values at once.

For use with a HTML::FormFu::Element::Multi group of fields.

A default value passed to the Multi field will be split according to the "split" setting, and its resulting parts passed to its child elements.

METHODS

split

Arguments: $regex

Default Value: qr/ +/

Regex used to split the default value. Defaults to a regex matching 1 or more space characters.

join

Arguments: $string

Default Value: ' '

If splitting the value results in more parts than there are fields, any extra parts are joined again to form the value for the last field. The value of "join" is used to join these values.

Defaults to a single space.

For example, if the Multi element contains fields number and name, and is given the value 10 Downing Street; when split this results in 3 parts: 10, Downing and Street. In this case, the 1st part, 10 is assigned to the first field, and the 2nd and 3rd parts are re-joined with a space to give the single value Downing Street, which is assigned to the 2nd field.

field_order

Arguments: \@order

If the parts from the split value should be assigned to the fields in a different order, you must provide an arrayref containing the names, in the order they should be assigned to.

---
element:
  - type: Multi
    name: address

    elements:
      - name: street
      - name: number

    deflator:
      - type: CompoundSplit
        field_order:
          - number
          - street

AUTHOR

Carl Franks

LICENSE

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

AUTHOR

Carl Franks <cpan@fireartist.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Carl Franks.

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