Half way through moving per-thread magicals into per-thread fields

[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 601a3c2..47b1f5a 100644 (file)
--- a/ext/NDBM_File/NDBM_File.pm
+++ b/ext/NDBM_File/NDBM_File.pm
@@ -1,6 +1,10 @@
 package NDBM_File;
 
-use strict;
+BEGIN {
+    if ($] >= 5.002) {
+       use strict;
+    }
+}
 use vars qw($VERSION @ISA); 
 
 require Tie::Hash;
@@ -24,7 +28,7 @@ NDBM_File - Tied access to ndbm files
 
  use NDBM_File;
 
- tie(%h,NDBM_File,'Op.dbmx', O_RDWR|O_CREAT, 0640);
+ tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
 
  untie %h;