- my ($user, $cap, $value) = @_;
- my $config = eval { LoadFile "$rootdir/$user.yml" } // {};
- $config->{caps}//={};
- my $caps=$config->{caps};
-
- delete $caps->{$cap} unless $value;
- $caps->{$cap} = 1 if $value;
- DumpFile "$rootdir/$user.yml", $config
+ my ($user, $cap, $value) = @_;
+ my $config = eval { LoadFile "$rootdir/$user.yml" } // {};
+ $config->{caps}//={};
+ my $caps=$config->{caps};
+
+ delete $caps->{$cap} unless $value;
+ $caps->{$cap} = 1 if $value;
+ DumpFile "$rootdir/$user.yml", $config