<?xml version="1.0" encoding="UTF-8"?>
<cvrfdoc xmlns="http://www.icasi.org/CVRF/schema/cvrf/1.1" xmlns:cvrf="http://www.icasi.org/CVRF/schema/cvrf/1.1">
	<DocumentTitle xml:lang="en">An update for perl-DBI is now available for openEuler-24.03-LTS-SP1</DocumentTitle>
	<DocumentType>Security Advisory</DocumentType>
	<DocumentPublisher Type="Vendor">
		<ContactDetails>openeuler-security@openeuler.org</ContactDetails>
		<IssuingAuthority>openEuler security committee</IssuingAuthority>
	</DocumentPublisher>
	<DocumentTracking>
		<Identification>
			<ID>openEuler-SA-2026-3520</ID>
		</Identification>
		<Status>Final</Status>
		<Version>1.0</Version>
		<RevisionHistory>
			<Revision>
				<Number>1.0</Number>
				<Date>2026-08-30</Date>
				<Description>Initial</Description>
			</Revision>
		</RevisionHistory>
		<InitialReleaseDate>2026-08-30</InitialReleaseDate>
		<CurrentReleaseDate>2026-08-30</CurrentReleaseDate>
		<Generator>
			<Engine>openEuler SA Tool V1.0</Engine>
			<Date>2026-08-30</Date>
		</Generator>
	</DocumentTracking>
	<DocumentNotes>
		<Note Title="Synopsis" Type="General" Ordinal="1" xml:lang="en">perl-DBI security update</Note>
		<Note Title="Summary" Type="General" Ordinal="2" xml:lang="en">An update for perl-DBI is now available for openEuler-24.03-LTS-SP1</Note>
		<Note Title="Description" Type="General" Ordinal="3" xml:lang="en">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 &amp;quot;glue&amp;quot; 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.

Security Fix(es):

DBI versions before 1.652 for Perl allow a heap out-of-bounds write on 32-bit perl via an integer wraparound in the output buffer size computed by preparse.

preparse reserves its output buffer with `newSV(strlen(statement) * 7 + 16)`, budgeting seven output bytes per input byte for the longest &apos;:p99999&apos; expansion. The product is computed in STRLEN, which is 32 bits wide on a 32-bit perl build, so a statement of 613,566,757 bytes multiplies to 4,294,967,299, wraps modulo 2^32 to 3, and reserves 19 bytes. The parser then copies the statement out through a raw pointer with no capacity check, writing the whole 585 MB input past the end of the allocation. The 99,999 placeholder limit does not bound this path, which is reached by ordinary non-placeholder content.

Any caller that passes an untrusted statement of that length to preparse on a 32-bit perl gets a heap out-of-bounds write of attacker controlled bytes. Builds with a 64-bit STRLEN are not affected, since the wrap there needs a statement of about 2.3 exabytes.(CVE-2026-73193)

DBI 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.

preparse reserves seven output bytes per input byte, the width of the longest &apos;:p99999&apos; expansion. The &apos;:N&apos; branch parses the number with `atoi(src)` and assigns it to the binder counter with no range check, so a statement containing &apos;:2147483648&apos; leaves the counter negative (-2147483648 with glibc, where atoi wraps). Each following &apos;?&apos; then expands through `sprintf(start, &quot;:p%d&quot;, idx++)` to &apos;:p-2147483648&apos;, 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.

Any caller that preparses an untrusted statement into &apos;:pN&apos; style placeholders gets a heap out-of-bounds write that grows with the number of &apos;?&apos; marks following the poisoned placeholder. The &apos;?&apos; and &apos;%s&apos; return styles compare the parsed number against the expected sequence and error out, and are unaffected.(CVE-2026-73194)</Note>
		<Note Title="Topic" Type="General" Ordinal="4" xml:lang="en">An update for perl-DBI is now available for openEuler-24.03-LTS-SP1.

openEuler Security has rated this update as having a security impact of critical. A Common Vunlnerability Scoring System(CVSS)base score,which gives a detailed severity rating, is available for each vulnerability from the CVElink(s) in the References section.</Note>
		<Note Title="Severity" Type="General" Ordinal="5" xml:lang="en">Critical</Note>
		<Note Title="Affected Component" Type="General" Ordinal="6" xml:lang="en">perl-DBI</Note>
	</DocumentNotes>
	<DocumentReferences>
		<Reference Type="Self">
			<URL>https://www.openeuler.org/zh/security/security-bulletins/detail/?id=openEuler-SA-2026-3520</URL>
		</Reference>
		<Reference Type="openEuler CVE">
			<URL>https://www.openeuler.org/en/security/cve/detail/?cveId=CVE-2026-73193</URL>
			<URL>https://www.openeuler.org/en/security/cve/detail/?cveId=CVE-2026-73194</URL>
		</Reference>
		<Reference Type="Other">
			<URL>https://nvd.nist.gov/vuln/detail/CVE-2026-73193</URL>
			<URL>https://nvd.nist.gov/vuln/detail/CVE-2026-73194</URL>
		</Reference>
	</DocumentReferences>
	<ProductTree xmlns="http://www.icasi.org/CVRF/schema/prod/1.1">
		<Branch Type="Product Name" Name="openEuler">
			<FullProductName ProductID="openEuler-24.03-LTS-SP1" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">openEuler-24.03-LTS-SP1</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="aarch64">
			<FullProductName ProductID="perl-DBI-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-1.643-8.oe2403sp1.aarch64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debuginfo-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-debuginfo-1.643-8.oe2403sp1.aarch64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debugsource-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-debugsource-1.643-8.oe2403sp1.aarch64.rpm</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="src">
			<FullProductName ProductID="perl-DBI-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-1.643-8.oe2403sp1.src.rpm</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="x86_64">
			<FullProductName ProductID="perl-DBI-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-1.643-8.oe2403sp1.x86_64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debuginfo-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-debuginfo-1.643-8.oe2403sp1.x86_64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debugsource-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-debugsource-1.643-8.oe2403sp1.x86_64.rpm</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="noarch">
			<FullProductName ProductID="perl-DBI-help-1.643-8" CPE="cpe:/a:openEuler:openEuler:24.03-LTS-SP1">perl-DBI-help-1.643-8.oe2403sp1.noarch.rpm</FullProductName>
		</Branch>
	</ProductTree>
	<Vulnerability Ordinal="1" xmlns="http://www.icasi.org/CVRF/schema/vuln/1.1">
		<Notes>
			<Note Title="Vulnerability Description" Type="General" Ordinal="1" xml:lang="en">DBI versions before 1.652 for Perl allow a heap out-of-bounds write on 32-bit perl via an integer wraparound in the output buffer size computed by preparse.

preparse reserves its output buffer with `newSV(strlen(statement) * 7 + 16)`, budgeting seven output bytes per input byte for the longest &apos;:p99999&apos; expansion. The product is computed in STRLEN, which is 32 bits wide on a 32-bit perl build, so a statement of 613,566,757 bytes multiplies to 4,294,967,299, wraps modulo 2^32 to 3, and reserves 19 bytes. The parser then copies the statement out through a raw pointer with no capacity check, writing the whole 585 MB input past the end of the allocation. The 99,999 placeholder limit does not bound this path, which is reached by ordinary non-placeholder content.

Any caller that passes an untrusted statement of that length to preparse on a 32-bit perl gets a heap out-of-bounds write of attacker controlled bytes. Builds with a 64-bit STRLEN are not affected, since the wrap there needs a statement of about 2.3 exabytes.</Note>
		</Notes>
		<ReleaseDate>2026-08-30</ReleaseDate>
		<CVE>CVE-2026-73193</CVE>
		<ProductStatuses>
			<Status Type="Fixed">
				<ProductID>openEuler-24.03-LTS-SP1</ProductID>
			</Status>
		</ProductStatuses>
		<Threats>
			<Threat Type="Impact">
				<Description>Critical</Description>
			</Threat>
		</Threats>
		<CVSSScoreSets>
			<ScoreSet>
				<BaseScore>9.1</BaseScore>
				<Vector>AV:N/AC:L/PR:N/UI:N/S:U/C:N/I:H/A:H</Vector>
			</ScoreSet>
		</CVSSScoreSets>
		<Remediations>
			<Remediation Type="Vendor Fix">
				<Description>perl-DBI security update</Description>
				<DATE>2026-08-30</DATE>
				<URL>https://www.openeuler.org/zh/security/security-bulletins/detail/?id=openEuler-SA-2026-3520</URL>
			</Remediation>
		</Remediations>
	</Vulnerability>
	<Vulnerability Ordinal="2" xmlns="http://www.icasi.org/CVRF/schema/vuln/1.1">
		<Notes>
			<Note Title="Vulnerability Description" Type="General" Ordinal="1" xml:lang="en">DBI 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.

preparse reserves seven output bytes per input byte, the width of the longest &apos;:p99999&apos; expansion. The &apos;:N&apos; branch parses the number with `atoi(src)` and assigns it to the binder counter with no range check, so a statement containing &apos;:2147483648&apos; leaves the counter negative (-2147483648 with glibc, where atoi wraps). Each following &apos;?&apos; then expands through `sprintf(start, &quot;:p%d&quot;, idx++)` to &apos;:p-2147483648&apos;, 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.

Any caller that preparses an untrusted statement into &apos;:pN&apos; style placeholders gets a heap out-of-bounds write that grows with the number of &apos;?&apos; marks following the poisoned placeholder. The &apos;?&apos; and &apos;%s&apos; return styles compare the parsed number against the expected sequence and error out, and are unaffected.</Note>
		</Notes>
		<ReleaseDate>2026-08-30</ReleaseDate>
		<CVE>CVE-2026-73194</CVE>
		<ProductStatuses>
			<Status Type="Fixed">
				<ProductID>openEuler-24.03-LTS-SP1</ProductID>
			</Status>
		</ProductStatuses>
		<Threats>
			<Threat Type="Impact">
				<Description>High</Description>
			</Threat>
		</Threats>
		<CVSSScoreSets>
			<ScoreSet>
				<BaseScore>7.7</BaseScore>
				<Vector>AV:L/AC:L/PR:N/UI:N/S:U/C:N/I:H/A:H</Vector>
			</ScoreSet>
		</CVSSScoreSets>
		<Remediations>
			<Remediation Type="Vendor Fix">
				<Description>perl-DBI security update</Description>
				<DATE>2026-08-30</DATE>
				<URL>https://www.openeuler.org/zh/security/security-bulletins/detail/?id=openEuler-SA-2026-3520</URL>
			</Remediation>
		</Remediations>
	</Vulnerability>
</cvrfdoc>