File apparmor-no-perl-smartmatch-r2088.diff of Package apparmor.9786

=== modified file 'utils/Immunix/AppArmor.pm'
--- utils/Immunix/AppArmor.pm	2013-07-09 23:03:09 +0000
+++ utils/Immunix/AppArmor.pm	2013-08-23 20:01:35 +0000
@@ -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;
                                     }