view release on metacpan or  search on metacpan

lib/Authen/Simple/Passwd.pm  view on Meta::CPAN

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
    }
 
    unless ( -f _ ) {
        Carp::croak( qq/Passwd path '$path' is not a file./ );
    }
 
    unless ( -r _ ) {
        Carp::croak( qq/Passwd path '$path' is not readable by effective uid '$>'./ );
    }
 
    return $self->SUPER::init($params);
}
 
sub check {
    my ( $self, $username, $password ) = @_;
 
    if ( $username =~ /^-/ ) {
 
        $self->log->debug( qq/User '$username' begins with a hyphen which is not allowed./ )
          if $self->log;