dev version numbers, xs and warnings dont play together nicely, so use MM->parse_vers...

p4raw-id: //depot/perl@32884

diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm
index e8e0c00..7bd2b2b 100644 (file)
--- a/ext/DB_File/DB_File.pm
+++ b/ext/DB_File/DB_File.pm
@@ -166,7 +166,7 @@ use Carp;
 
 
 $VERSION = "1.816_2" ;
-$VERSION = eval $VERSION;
+$VERSION = eval $VERSION; # needed for dev releases 
 
 {
     local $SIG{__WARN__} = sub {$splice_end_array = "@_";};

diff --git a/ext/DB_File/Makefile.PL b/ext/DB_File/Makefile.PL
index d3a595f..93f3895 100644 (file)
--- a/ext/DB_File/Makefile.PL
+++ b/ext/DB_File/Makefile.PL
@@ -22,6 +22,7 @@ WriteMakefile(
        XSPROTOARG      => '-noprototypes',
        DEFINE          => $OS2 || "",
        INC             => ($^O eq "MacOS" ? "-i ::::db:include" : ""),
+        XS_VERSION      => eval MM->parse_version('DB_File.pm'),
     ((ExtUtils::MakeMaker->VERSION() gt '6.30')
             ?  ('LICENSE'  => 'perl')
             : ()

diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm
index 32dfcfd..db4a11a 100644 (file)
--- a/ext/GDBM_File/GDBM_File.pm
+++ b/ext/GDBM_File/GDBM_File.pm
@@ -69,7 +69,7 @@ use XSLoader ();
 );
 
 $VERSION = "1.08_01";
-$VERSION = eval $VERSION;
+$VERSION = eval $VERSION; # Needed for dev versions
 
 sub AUTOLOAD {
     my($constname);

diff --git a/ext/GDBM_File/Makefile.PL b/ext/GDBM_File/Makefile.PL
index 5c4f2d5..1286dcd 100644 (file)
--- a/ext/GDBM_File/Makefile.PL
+++ b/ext/GDBM_File/Makefile.PL
@@ -7,6 +7,7 @@ WriteMakefile(
     XSPROTOARG => '-noprototypes',             # XXX remove later?
     VERSION_FROM => 'GDBM_File.pm',
     realclean => {FILES=> 'const-c.inc const-xs.inc'},
+    XS_VERSION => eval MM->parse_version('GDBM_File.pm'), #silence warnings if we are a dev release
 );
 WriteConstants(
     NAME => 'GDBM_File',