Apache-Htpasswd

 view release on metacpan or  search on metacpan

Htpasswd.pm  view on Meta::CPAN

516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
        }
    }
    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 )