Patch deprecated perl regexp
Dmitry Bogatov
5 years ago
|
0 |
Description: Fix Perl deprecation warning
|
|
1 |
Unescaped left brace will be error in Perl-5.32.
|
|
2 |
Author: Dmitry Bogatov <KAction@debian.org>
|
|
3 |
Last-Update: 2019-01-18
|
|
4 |
---
|
|
5 |
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
|
|
6 |
Index: ceni/lib/Ceni/Backend.pm
|
|
7 |
===================================================================
|
|
8 |
--- ceni.orig/lib/Ceni/Backend.pm
|
|
9 |
+++ ceni/lib/Ceni/Backend.pm
|
|
10 |
@@ -64,7 +64,7 @@ sub nic_info {
|
|
11 |
while (<$udevinfo>) {
|
|
12 |
chomp;
|
|
13 |
$self->debug($_);
|
|
14 |
- if (m/^\s+([A-Z]+({(.+)})?)=="([^"]+)"$/) {
|
|
15 |
+ if (m/^\s+([A-Z]+(\{(.+)\})?)=="([^"]+)"$/) {
|
|
16 |
$3 ? $i{$if}{ lc $3 } ||= $4 : $i{$if}{ lc $1 } ||= $4;
|
|
17 |
# ssb first KERNELS is useless to us, we want the second
|
|
18 |
($1 eq 'KERNELS')&&($4=~/^ssb/)&&(delete($i{$if}{'kernels'}));
|
|
0 |
fix-perl-deprecation.patch
|