Apache-Htpasswd
view release on metacpan or search on metacpan
Htpasswd.pm view on Meta::CPAN
516517518519520521522523524525526527528529530531532533534535
}
}
else
{
if
( !
open
( FH,
"+<$passwdFile"
) ) {
$self
->{
'ERROR'
} =
__PACKAGE__ .
"::fetchPass - Cannot open $passwdFile: $!"
;
croak
$self
->error();
}
}
binmode
(FH);
$self
->{
'OPEN'
}++;
$self
->_lock()
unless
$self
->{READONLY};
# No lock on r/o
}
#-----------------------------------------------------------#
sub
_close {
my
$self
=
shift
;
$self
->_unlock()
unless
$self
->{READONLY};
( run in 0.326 second using v1.01-cache-2.11-cpan-d6f9594c0a5 )