From 3c60fba26b1fa51ec302d05dc6e76236d2f54ba4 Mon Sep 17 00:00:00 2001 From: Simon Green Date: Sun, 30 Oct 2016 14:55:23 +1000 Subject: Bug 228444 - Checking for unquoted non regex variable interpolated into regex --- t/010dependencies.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/010dependencies.t b/t/010dependencies.t index 4b7ca223d..1b6c270a8 100644 --- a/t/010dependencies.t +++ b/t/010dependencies.t @@ -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)); } -- cgit v1.2.3-24-g4f1b