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 4d1411b..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.03" ;
+our $VERSION = "1.04" ;
 
 XSLoader::load 'SDBM_File', $VERSION;