[interchange] Quell new warning in Perl 5.28
Jon Jensen <[email protected]> Tue, 18 Sep 2018 20:08:51 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit d5455abcec7529011459512656dbf321fd658286 Author: Jon Jensen <[email protected]> Date: Tue Sep 18 11:53:48 2018 -0600 Quell new warning in Perl 5.28 Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32) lib/Vend/Config.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) --- diff --git a/lib/Vend/Config.pm b/lib/Vend/Config.pm index 66b92a5..8faadf9 100644 --- a/lib/Vend/Config.pm +++ b/lib/Vend/Config.pm @@ -3870,7 +3870,7 @@ sub parse_wildcard { $value =~ s/\*/.*/g; $value =~ s/\?/./g; $value =~ - s[({(?:.+?,)+.+?})] + s[(\{(?:.+?,)+.+?\})] [ local $_ = $1; tr/{,}/(|)/; $_ ]eg; $value =~ s/\s+/|/g; eval {