[interchange] Escape deprecated braces in regex; caused warnings in Perl 5.22.0
Josh Lavin <[email protected]> Sat, 26 Sep 2015 00:06:08 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 17bac54486dfeb4b5395d7f64603ba9b7a2f4307 Author: Josh Lavin <[email protected]> Date: Fri Sep 25 15:16:07 2015 -0700 Escape deprecated braces in regex; caused warnings in Perl 5.22.0 lib/Vend/Ship.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) --- diff --git a/lib/Vend/Ship.pm b/lib/Vend/Ship.pm index a5633b2..943e3a8 100644 --- a/lib/Vend/Ship.pm +++ b/lib/Vend/Ship.pm @@ -979,7 +979,7 @@ sub shipping { } $label =~ s/(%(.))/exists $subst{$2} ? $subst{$2} : $1/eg; #::logDebug("label intermediate: $label"); - $label =~ s/(\$O{(.*?)})/$o->{$2}/eg; + $label =~ s/(\$O\{(.*?)\})/$o->{$2}/eg; #::logDebug("label returning: $label"); return $label; }