detypo #6494

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

diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm
index e40fe85..f98669f 100644 (file)
--- a/ext/NDBM_File/NDBM_File.pm
+++ b/ext/NDBM_File/NDBM_File.pm
@@ -1,11 +1,38 @@
 package NDBM_File;
 
-require TieHash;
-require DynaLoader;
-@ISA = qw(TieHash DynaLoader);
+BEGIN {
+    if ($] >= 5.002) {
+       use strict;
+    }
+}
 
-bootstrap NDBM_File;
+require Tie::Hash;
+use XSLoader ();
+
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.03";
+
+XSLoader::load '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