From f76dc0931e47338aa9c7db257d28e5015d8a2f47 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 20 Dec 2013 23:15:56 +0100 Subject: perl_checker cleanups --- perl-install/standalone/draksec | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 1626e7d74..7a265194a 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -117,7 +117,7 @@ my %auth = ( ); my $polkit_rules_file = "/etc/polkit-1/rules.d/51-draksec.rules"; -my %overrides = map { if ( /case '([^']+)': return polkit\.Result\.(YES|AUTH_ADMIN_KEEP|AUTH_SELF_KEEP)/ ) { ($1, $2) } } cat_($polkit_rules_file); +my %overrides = map { if (/case '([^']+)': return polkit\.Result\.(YES|AUTH_ADMIN_KEEP|AUTH_SELF_KEEP)/) { ($1, $2) } } cat_($polkit_rules_file); sub default_auth_value { @@ -145,8 +145,8 @@ sub set_auth_value { sub write_rules() { my $contents = ''; keys %overrides; - while(my($k, $v) = each %overrides) { - $contents .= "case '$k': return polkit.Result.$v;\n" if ($k && $v); + while (my ($k, $v) = each %overrides) { + $contents .= "case '$k': return polkit.Result.$v;\n" if $k && $v; } if ($contents) { -- cgit v1.2.1