diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-12-20 23:15:56 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-12-20 23:15:56 +0100 |
| commit | f76dc0931e47338aa9c7db257d28e5015d8a2f47 (patch) | |
| tree | b8987d95eb593c1160e38a2cd60f4a237ebdce36 /perl-install | |
| parent | 9a6f9d11dec579bd605f5f167dbb6b2722c5ccf6 (diff) | |
| download | drakx-f76dc0931e47338aa9c7db257d28e5015d8a2f47.tar drakx-f76dc0931e47338aa9c7db257d28e5015d8a2f47.tar.gz drakx-f76dc0931e47338aa9c7db257d28e5015d8a2f47.tar.bz2 drakx-f76dc0931e47338aa9c7db257d28e5015d8a2f47.tar.xz drakx-f76dc0931e47338aa9c7db257d28e5015d8a2f47.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draksec | 6 |
1 files changed, 3 insertions, 3 deletions
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) { |