instead of unions use double cast for data pointer <-> function pointer

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

diff --git a/ext/SDBM_File/SDBM_File.pm b/ext/SDBM_File/SDBM_File.pm
index 438b8d0..6fda489 100644 (file)
--- a/ext/SDBM_File/SDBM_File.pm
+++ b/ext/SDBM_File/SDBM_File.pm
@@ -1,12 +1,13 @@
 package SDBM_File;
 
 use strict;
+use warnings;
 
 require Tie::Hash;
 use XSLoader ();
 
 our @ISA = qw(Tie::Hash);
-our $VERSION = "1.02" ;
+our $VERSION = "1.04" ;
 
 XSLoader::load 'SDBM_File', $VERSION;
 
@@ -103,8 +104,6 @@ This warning is emmitted when you try to store a key or a value that
 is too long.  It means that the change was not recorded in the
 database.  See BUGS AND WARNINGS below.
 
-
-
 =head1 BUGS AND WARNINGS
 
 There are a number of limits on the size of the data that you can