diff --git a/tests/regression/apparmor/mkprofile.pl b/tests/regression/apparmor/mkprofile.pl index d00b68369..0d796d296 100755 --- a/tests/regression/apparmor/mkprofile.pl +++ b/tests/regression/apparmor/mkprofile.pl @@ -423,21 +423,21 @@ sub gen_path($) { } } -sub gen_mqueue($) { - my $rule = shift; +sub gen_mqueue($@) { + my ($rule, $qualifier) = @_; my @rules = split (/:/, $rule); if (@rules == 2) { if ($rules[1] =~ /^ALL$/) { - push (@{$output_rules{$hat}}, " mqueue,\n"); + push (@{$output_rules{$hat}}, " ${qualifier}mqueue,\n"); } else { - push (@{$output_rules{$hat}}, " mqueue $rules[1],\n"); + push (@{$output_rules{$hat}}, " ${qualifier}mqueue $rules[1],\n"); } } elsif (@rules == 3) { - push (@{$output_rules{$hat}}, " mqueue $rules[1] $rules[2],\n"); + push (@{$output_rules{$hat}}, " ${qualifier}mqueue $rules[1] $rules[2],\n"); } elsif (@rules == 4) { - push (@{$output_rules{$hat}}, " mqueue $rules[1] $rules[2] $rules[3],\n"); + push (@{$output_rules{$hat}}, " ${qualifier}mqueue $rules[1] $rules[2] $rules[3],\n"); } elsif (@rules == 5) { - push (@{$output_rules{$hat}}, " mqueue $rules[1] $rules[2] $rules[3] $rules[4],\n"); + push (@{$output_rules{$hat}}, " ${qualifier}mqueue $rules[1] $rules[2] $rules[3] $rules[4],\n"); } else { (!$nowarn) && print STDERR "Warning: invalid mqueue description '$rule', ignored\n"; } @@ -513,7 +513,7 @@ sub gen_from_args() { } elsif ($rule =~ /^path:/) { gen_path($rule); } elsif ($rule =~ /^mqueue:/) { - gen_mqueue($rule); + gen_mqueue($rule, $qualifier); } else { gen_file($rule, $qualifier); }