{"schema_version":"1.7.2","id":"OESA-2026-3478","modified":"2026-08-20T10:01:04Z","published":"2026-08-20T10:01:04Z","upstream":["CVE-2026-73194"],"summary":"perl-DBI security update","details":"The DBI is the standard database interface module for Perl. It defines a set of methods, variables and conventions that provide a consistent database interface independent of the actual database being used. It is important to remember that the DBI is just an interface. The DBI is a layer of "glue" between an application and one or more database driver modules. It is the driver modules which do most of the real work. The DBI provides a standard interface and framework for the drivers to operate within.\r\n\r\nSecurity Fix(es):\n\nDBI versions before 1.652 for Perl allow a heap out-of-bounds write via an unvalidated numeric placeholder that sets the binder counter in preparse.\n\npreparse reserves seven output bytes per input byte, the width of the longest ':p99999' expansion. The ':N' branch parses the number with `atoi(src)` and assigns it to the binder counter with no range check, so a statement containing ':2147483648' leaves the counter negative (-2147483648 with glibc, where atoi wraps). Each following '?' then expands through `sprintf(start, ":p%d", idx++)` to ':p-2147483648', 14 bytes with the terminating NUL where the buffer budgets 7. The placeholder limit added in 1.650 tests the counter against 99,999, which a negative counter passes.\n\nAny caller that preparses an untrusted statement into ':pN' style placeholders gets a heap out-of-bounds write that grows with the number of '?' marks following the poisoned placeholder. The '?' and '%s' return styles compare the parsed number against the expected sequence and error out, and are unaffected.(CVE-2026-73194)","affected":[{"package":{"ecosystem":"openEuler:20.03-LTS-SP4","name":"perl-DBI","purl":"pkg:rpm/openEuler/perl-DBI&distro=openEuler-20.03-LTS-SP4"},"ranges":[{"type":"ECOSYSTEM","events":[{"introduced":"0"},{"fixed":"1.643-6.oe2003sp4"}]}],"ecosystem_specific":{"aarch64":["perl-DBI-1.643-6.oe2003sp4.aarch64.rpm","perl-DBI-debuginfo-1.643-6.oe2003sp4.aarch64.rpm","perl-DBI-debugsource-1.643-6.oe2003sp4.aarch64.rpm"],"noarch":["perl-DBI-help-1.643-6.oe2003sp4.noarch.rpm"],"src":["perl-DBI-1.643-6.oe2003sp4.src.rpm"],"x86_64":["perl-DBI-1.643-6.oe2003sp4.x86_64.rpm","perl-DBI-debuginfo-1.643-6.oe2003sp4.x86_64.rpm","perl-DBI-debugsource-1.643-6.oe2003sp4.x86_64.rpm"]}}],"references":[{"type":"ADVISORY","url":"https://www.openeuler.org/zh/security/security-bulletins/detail/?id=openEuler-SA-2026-3478"},{"type":"ADVISORY","url":"https://nvd.nist.gov/vuln/detail/CVE-2026-73194"}],"severity":[{"type":"CVSS_V3","score":"CVSS:3.1/AV:L/AC:L/PR:N/UI:N/S:U/C:N/I:H/A:H"}],"database_specific":{"severity":"High"}}