[interchange] Quell new warning in Perl 5.28

Jon Jensen interchange-cvs at icdevgroup.org
Tue Sep 18 20:08:51 UTC 2018


commit d5455abcec7529011459512656dbf321fd658286
Author: Jon Jensen <jon at endpoint.com>
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 {  



More information about the interchange-cvs mailing list