mirrors/apparmor
1
0
Fork 0
mirror of https://gitlab.com/apparmor/apparmor.git synced 2025-03-04 08:24:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Some further bugfixes

Browse source
This commit is contained in:
Andreas Gruenbacher 2007-04-10 20:34:11 +00:00
parent 461273d456
commit d6414e35dd
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
utils/convert-profile.pl
View file

@ -23,7 +23,7 @@ sub match($) {
my ($str) = @_;
my @fields;
@fields = ($str =~ /^(\s*)(\/\S*)(\s.*,)$/);
@fields = ($str =~ /^(\s*)([@\/]\S*)(\s.*,)$/);
if (!@fields) {
@fields = ($str =~ /^(\s*")((?:[^"]|\\")*)("\s.*,)$/);
}
@ -60,15 +60,14 @@ sub remember_pathname($) {
sub add_slash($$) {
my ($str, $perms) = @_;
return exists $known_dirs{$str} || $str =~ /\*\*$/ ||
-d $str;
return exists $known_dirs{$str} || -d $str;
}
sub never_add_slash($$) {
my ($str, $perms) = @_;
return $perms =~ /[lmx]/ || $str =~ /\.(so|cf|db|conf|config|log|pid|so\*)$/ ||
$str =~ /\*\*|\/$/ || (-e $str && ! -d $str);
$str =~ /(\*\*|\/)$/ || (-e $str && ! -d $str);
}