Commit 9af79061 authored by Christian Boltz's avatar Christian Boltz

use grep instead of ~~ (smartmatch)

Patch by Kshitij Gupta <kgupta8592@gmail.com>

A previous bugreport [1] was fixed using the smartmatch operator,
which raised the minimum Perl version requirement to >=5.10.1 .
However in Perl5.18 the smartmatch operator has again become
"experimental" [2] so the following patch replace smartmatch operator
with grep and thereby avoiding the requirement hike and avoiding
warnings.

[1] https://bugs.launchpad.net/apparmor/+bug/1180230

[2] http://blogs.perl.org/users/mike_b/2013/06/a-little-nicer-way-to-use-smartmatch-on-perl-518.htmlACKed-by: Christian Boltz's avatarChristian Boltz <apparmor@cboltz.de>
parent 8801abf3
......@@ -3879,7 +3879,7 @@ sub ask_the_questions() {
$newpath =~ s/\/[^\/]+$/\/\*/;
}
}
if (not $newpath ~~ @options) {
if (not grep { $newpath eq $_ } @options) {
push @options, $newpath;
$defaultoption = $#options + 1;
}
......@@ -3896,7 +3896,7 @@ sub ask_the_questions() {
} else {
$newpath =~ s/\/[^\/]+(\.[^\/]+)$/\/\*$1/;
}
if (not $newpath ~~ @options) {
if (not grep { $newpath eq $_ } @options) {
push @options, $newpath;
$defaultoption = $#options + 1;
}
......
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