<?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-20.03-LTS-SP4</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-3478</ID>
		</Identification>
		<Status>Final</Status>
		<Version>1.0</Version>
		<RevisionHistory>
			<Revision>
				<Number>1.0</Number>
				<Date>2026-08-20</Date>
				<Description>Initial</Description>
			</Revision>
		</RevisionHistory>
		<InitialReleaseDate>2026-08-20</InitialReleaseDate>
		<CurrentReleaseDate>2026-08-20</CurrentReleaseDate>
		<Generator>
			<Engine>openEuler SA Tool V1.0</Engine>
			<Date>2026-08-20</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-20.03-LTS-SP4</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 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-20.03-LTS-SP4.

openEuler Security has rated this update as having a security impact of high. 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">High</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-3478</URL>
		</Reference>
		<Reference Type="openEuler CVE">
			<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-73194</URL>
		</Reference>
	</DocumentReferences>
	<ProductTree xmlns="http://www.icasi.org/CVRF/schema/prod/1.1">
		<Branch Type="Product Name" Name="openEuler">
			<FullProductName ProductID="openEuler-20.03-LTS-SP4" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">openEuler-20.03-LTS-SP4</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="aarch64">
			<FullProductName ProductID="perl-DBI-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-1.643-6.oe2003sp4.aarch64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debuginfo-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-debuginfo-1.643-6.oe2003sp4.aarch64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debugsource-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-debugsource-1.643-6.oe2003sp4.aarch64.rpm</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="src">
			<FullProductName ProductID="perl-DBI-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-1.643-6.oe2003sp4.src.rpm</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="x86_64">
			<FullProductName ProductID="perl-DBI-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-1.643-6.oe2003sp4.x86_64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debuginfo-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-debuginfo-1.643-6.oe2003sp4.x86_64.rpm</FullProductName>
			<FullProductName ProductID="perl-DBI-debugsource-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-debugsource-1.643-6.oe2003sp4.x86_64.rpm</FullProductName>
		</Branch>
		<Branch Type="Package Arch" Name="noarch">
			<FullProductName ProductID="perl-DBI-help-1.643-6" CPE="cpe:/a:openEuler:openEuler:20.03-LTS-SP4">perl-DBI-help-1.643-6.oe2003sp4.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 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-20</ReleaseDate>
		<CVE>CVE-2026-73194</CVE>
		<ProductStatuses>
			<Status Type="Fixed">
				<ProductID>openEuler-20.03-LTS-SP4</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-20</DATE>
				<URL>https://www.openeuler.org/zh/security/security-bulletins/detail/?id=openEuler-SA-2026-3478</URL>
			</Remediation>
		</Remediations>
	</Vulnerability>
</cvrfdoc>