Commit 93071e93 authored by Nigel Kukard's avatar Nigel Kukard

Fixed deprecated warning

Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE query.Value}/ at xxx/lib/smradius/util.pm line 90.
parent 62f57dae
......@@ -85,7 +85,7 @@ sub templateReplace
$placeholder //= '?';
# Replace blanks
while (my ($entireMacro,$section,$item,$default) = ($string =~ /(\%{([a-z]+)\.([a-z0-9\-]+)(?:=([^}]*))?})/i )) {
while (my ($entireMacro,$section,$item,$default) = ($string =~ /(\%\{([a-z]+)\.([a-z0-9\-]+)(?:=([^\}]*))?\})/i )) {
# Replace macro with ?
$string =~ s/$entireMacro/$placeholder/;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment