Hello, 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.
--- AppArmor.pm.old 2013-08-23 13:53:12.541915111 +0530
+++ AppArmor.pm 2013-08-23 13:54:00.477913694 +0530
@@ -3879,7 +3879,7 @@
$newpath =~ s/\/[^\/]+$/\/\*/;
}
}
- if (not $newpath ~~ @options) {
+ if (not grep { $newpath eq $_ } @options) {
push @options, $newpath;
$defaultoption = $#options + 1;
}
@@ -3896,7 +3896,7 @@
} else {
$newpath =~
s/\/[^\/]+(\.[^\/]+)$/\/\*$1/;
}
- if (not $newpath ~~ @options) {
+ if (not grep { $newpath eq $_ } @options) {
push @options, $newpath;
$defaultoption = $#options + 1;
}
Regards,
Kshitij Gupta
[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.html
new_patch
Description: Binary data
-- AppArmor mailing list [email protected] Modify settings or unsubscribe at: https://lists.ubuntu.com/mailman/listinfo/apparmor
