do, warn, use

[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 c9ef699..a088bd3 100644 (file)
--- a/ext/NDBM_File/NDBM_File.pm
+++ b/ext/NDBM_File/NDBM_File.pm
@@ -1,16 +1,13 @@
 package NDBM_File;
 
-BEGIN {
-    if ($] >= 5.002) {
-       use strict;
-    }
-}
+use strict;
+use warnings;
 
 require Tie::Hash;
 use XSLoader ();
 
 our @ISA = qw(Tie::Hash);
-our $VERSION = "1.03";
+our $VERSION = "1.04";
 
 XSLoader::load 'NDBM_File', $VERSION;
 
@@ -31,11 +28,11 @@ NDBM_File - Tied access to ndbm files
   $h{newkey} = newvalue;
   print $h{oldkey}; 
   ...
- 
+
   untie %h;
- 
+
 =head1 DESCRIPTION
- 
+
 C<NDBM_File> establishes a connection between a Perl hash variable and
 a file in NDBM_File format;.  You can manipulate the data in the file
 just as if it were in a Perl hash, but when your program exits, the