Escape deprecated braces in regex; caused warnings in Perl 5.22.0

interchange · Sep 25, 2015 · 17bac54 · 17bac54
1 parent f1dde34
commit 17bac54
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;
 	}