Commit 3c60fba2 authored by Simon Green's avatar Simon Green

Bug 228444 - Checking for unquoted non regex variable interpolated into regex

parent 06779036
...@@ -69,7 +69,7 @@ foreach my $module (keys %mods) { ...@@ -69,7 +69,7 @@ foreach my $module (keys %mods) {
$used =~ s#/#::#g; $used =~ s#/#::#g;
$used =~ s#\.pm$##; $used =~ s#\.pm$##;
$used =~ s#\$module#[^:]+#; $used =~ s#\$module#[^:]+#;
$used =~ s#\${[^}]+}#[^:]+#; $used =~ s#\$\{[^}]+}#[^:]+#;
$used =~ s#[" ]##g; $used =~ s#[" ]##g;
push(@use, grep(/^\Q$used\E$/, keys %mods)); push(@use, grep(/^\Q$used\E$/, keys %mods));
} }
......
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