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 6072e65..f98669f 100644 (file)
--- a/ext/NDBM_File/NDBM_File.pm
+++ b/ext/NDBM_File/NDBM_File.pm
@@ -5,16 +5,14 @@ BEGIN {
        use strict;
     }
 }
-use vars qw($VERSION @ISA); 
 
 require Tie::Hash;
-require DynaLoader;
+use XSLoader ();
 
-@ISA = qw(Tie::Hash DynaLoader);
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.03";
 
-$VERSION = "1.00";
-
-bootstrap NDBM_File $VERSION;
+XSLoader::load 'NDBM_File', $VERSION;
 
 1;
 
@@ -27,13 +25,14 @@ 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);
+ tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
 
  untie %h;
 
 =head1 DESCRIPTION
 
-See L<perlfunc/tie>
+See L<perlfunc/tie>, L<perldbmfilter>
 
 =cut