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) {
$used =~ s#/#::#g;
$used =~ s#\.pm$##;
$used =~ s#\$module#[^:]+#;
$used =~ s#\${[^}]+}#[^:]+#;
$used =~ s#\$\{[^}]+}#[^:]+#;
$used =~ s#[" ]##g;
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