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 ...@@ -85,7 +85,7 @@ sub templateReplace
$placeholder //= '?'; $placeholder //= '?';
# Replace blanks # 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 ? # Replace macro with ?
$string =~ s/$entireMacro/$placeholder/; $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