--- 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;
                                     }