revert change#4618 (breaks C<$_ = 'A:B'; s/^[a-z]:/x/>)

[p5sagit/p5-mst-13.2.git] / ext / NDBM_File / NDBM_File.pm

package NDBM_File;

BEGIN {
    if ($] >= 5.002) {
	use strict;
    }
}
use vars qw($VERSION @ISA); 

require Tie::Hash;
require DynaLoader;

@ISA = qw(Tie::Hash DynaLoader);

$VERSION = "1.03";

bootstrap NDBM_File $VERSION;

1;

__END__

=head1 NAME

NDBM_File - Tied access to ndbm files

=head1 SYNOPSIS

 use NDBM_File;
 use Fcntl;       # for O_ constants

 tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);

 untie %h;

=head1 DESCRIPTION

See L<perlfunc/tie>, L<perldbmfilter>

=cut