blob: 5ccf39c541b9823ecece43807c9f132bce9b1c35 [file] [log] [blame]
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE glsa SYSTEM "http://www.gentoo.org/dtd/glsa.dtd">
<glsa id="201507-11">
<title>Perl: Denial of Service</title>
<synopsis>A vulnerability in Perl allows a remote attacker to cause Denial of
Service.
</synopsis>
<product type="ebuild">perl</product>
<announced>July 10, 2015</announced>
<revised>July 10, 2015: 1</revised>
<bug>216671</bug>
<access>remote</access>
<affected>
<package name="dev-lang/perl" auto="yes" arch="*">
<unaffected range="ge">5.20.1-r4</unaffected>
<vulnerable range="lt">5.20.1-r4</vulnerable>
</package>
</affected>
<background>
<p>Perl is a highly capable, feature-rich programming language.</p>
</background>
<description>
<p>S_regmatch() function lacks proper checks before passing arguments to
atoi()
</p>
</description>
<impact type="normal">
<p>A remote attacker could send a specially crafted input, possibly
resulting in a Denial of Service condition.
</p>
</impact>
<workaround>
<p>There is no known workaround at this time.</p>
</workaround>
<resolution>
<p>All Perl users should upgrade to the latest version:</p>
<code>
# emerge --sync
# emerge --ask --oneshot --verbose "&gt;=dev-lang/perl-5.20.1-r4"
</code>
</resolution>
<references>
<uri link="http://nvd.nist.gov/nvd.cfm?cvename=CVE-2013-7422">CVE-2013-7422</uri>
</references>
<metadata tag="requester" timestamp="Sun, 29 Mar 2015 15:10:08 +0000">Zlogene</metadata>
<metadata tag="submitter" timestamp="Fri, 10 Jul 2015 08:19:35 +0000">Zlogene</metadata>
</glsa>