Re: [perl #20920] Segmentation fault ("Safe Signal" queue problem?)

[p5sagit/p5-mst-13.2.git] / lib / AnyDBM_File.pm

diff --git a/lib/AnyDBM_File.pm b/lib/AnyDBM_File.pm
index 9cf9b31..d73abab 100644 (file)
--- a/lib/AnyDBM_File.pm
+++ b/lib/AnyDBM_File.pm
@@ -1,7 +1,8 @@
 package AnyDBM_File;
 
-use vars qw(@ISA);
-@ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA;
+use 5.006_001;
+our $VERSION = '1.00';
+our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA;
 
 my $mod;
 for $mod (@ISA) {