Skip Menu |

This queue is for tickets about the Net-Address-Ethernet CPAN distribution.

Report information
The Basics
Id: 114733
Status: resolved
Priority: 0/
Queue: Net-Address-Ethernet

People
Owner: Nobody in particular
Requestors: MAT [...] cpan.fsck.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.123
Fixed in: (no value)



Subject: Unescaped left brace in regex is illegal in regex
Unescaped left brace in regex is illegal in regex; marked by <-- HERE in m/(pm_to_blib\(){{ <-- HERE \@ARGV}}/ at ./Makefile.PL line 36.
Subject: patch-Makefile.PL
--- Makefile.PL.orig 2016-05-26 14:56:06 UTC +++ Makefile.PL @@ -33,11 +33,11 @@ if ($ENV{MTHURN_PERL_DEV}) { warn " EEE did not find DIRFILESEP in Makefile\n"; } # if - if ($s !~ s/(pm_to_blib\(){{\@ARGV}}/$1 . '{@ARGV}'/e) + if ($s !~ s/(pm_to_blib\()\{\{\@ARGV\}\}/$1 . '{@ARGV}'/e) { warn " EEE did not find pm_to_blib@ARGV in Makefile\n"; } # if - if ($s !~ s/(from_to\s+=>\s+){{\@ARGV}}/$1 . '{@ARGV}'/e) + if ($s !~ s/(from_to\s+=>\s+)\{\{\@ARGV\}\}/$1 . '{@ARGV}'/e) { warn " EEE did not find from_to@ARGV in Makefile\n"; } # if
On 2016-05-26 10:59:28, MAT wrote: Show quoted text
> Unescaped left brace in regex is illegal in regex; marked by <-- HERE > in m/(pm_to_blib\(){{ <-- HERE \@ARGV}}/ at ./Makefile.PL line 36.
The .pm also has an unescaped left brace. Please see the attached additional patch.
Subject: Net-Address-Ethernet-1.123-RT114733-2.patch
From 71539065a1a3cbfeff56e10867c918e647d0960d Mon Sep 17 00:00:00 2001 From: Slaven Rezic <slaven@rezic.de> Date: Sat, 18 Jun 2016 17:42:22 +0200 Subject: [PATCH] another unescaped left brace (RT #114733) --- lib/Net/Address/Ethernet.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Net/Address/Ethernet.pm b/lib/Net/Address/Ethernet.pm index 9e105f1..37b2fa6 100644 --- a/lib/Net/Address/Ethernet.pm +++ b/lib/Net/Address/Ethernet.pm @@ -177,7 +177,7 @@ sub get_addresses my %hash; _debug(" DDD working on key $key...\n"); my $sAdapter = $key; - if ($key =~ m!\A{.+}\z!) + if ($key =~ m!\A\{.+}\z!) { $sAdapter = $rh->{$key}->{descr}; } # if -- 2.1.4
Fixed in 1.124, uploaded to CPAN just now