Open gevrey opened 4 years ago
Lines 228 & 233 need to be modified to escape the regex:
228 should be: while ($value =~ m/\$\{([^}]+)\}/) {
while ($value =~ m/\$\{([^}]+)\}/) {
233 should be: $value =~ s/\$\{([^}]+)\}/$ENV{$1}/;
$value =~ s/\$\{([^}]+)\}/$ENV{$1}/;
Error message (for search engine indexing) is:
Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/\${ <-- HERE ([^}]+)}/ at /home/cri/websec/websec line 233.
Lines 228 & 233 need to be modified to escape the regex:
228 should be:
while ($value =~ m/\$\{([^}]+)\}/) {
233 should be:
$value =~ s/\$\{([^}]+)\}/$ENV{$1}/;