diff options
| author | Frédéric Buclin <LpSolit@netscape.net> | 2017-08-04 00:43:05 +0200 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@netscape.net> | 2017-08-04 00:43:05 +0200 |
| commit | 394462fb627313899fc786a49afec35bd7090427 (patch) | |
| tree | 20bb82d99bd65fd5847a596c4dd213e85d51c049 | |
| parent | 8d9c748a5e694fb544c082128c9756a0ca702334 (diff) | |
| download | bugs-394462fb627313899fc786a49afec35bd7090427.tar bugs-394462fb627313899fc786a49afec35bd7090427.tar.gz bugs-394462fb627313899fc786a49afec35bd7090427.tar.bz2 bugs-394462fb627313899fc786a49afec35bd7090427.tar.xz bugs-394462fb627313899fc786a49afec35bd7090427.zip | |
Escape left brace in regular expression to make Perl 5.26 happy
| -rw-r--r-- | t/010dependencies.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/010dependencies.t b/t/010dependencies.t index afd29a652..f565554d8 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)); } |