- my ($user, $pass)=@_;
- die INVALID_USER unless $user =~ USER_REGEX; ## no critic (RequireCarping)
- $user=${^MATCH};# Make taint shut up
- my $conf=LoadFile "$rootdir/$user.yml";
-
- ## no critic (RequireCarping)
- die BAD_PASSWORD unless keys $conf;# Empty hash means no such user
- die BAD_PASSWORD unless Authen::Passphrase->from_rfc2307($conf->{passphrase})->match($pass);
- ## use critic
- pwset $user, $pass if $conf->{passphrase_version} < PASSPHRASE_VERSION
+ my ($user, $pass)=@_;
+ die INVALID_USER unless $user =~ USER_REGEX; ## no critic (RequireCarping)
+ $user=${^MATCH}; # Make taint shut up
+ my $conf=LoadFile "$rootdir/$user.yml";
+
+ ## no critic (RequireCarping)
+ die BAD_PASSWORD unless keys $conf; # Empty hash means no such user
+ die BAD_PASSWORD unless Authen::Passphrase->from_rfc2307($conf->{passphrase})->match($pass);
+ ## use critic
+ pwset $user, $pass if $conf->{passphrase_version} < PASSPHRASE_VERSION