From: Yves Orton <demerphq@gmail.com>
Date: Mon, 7 Jan 2008 00:20:33 +0000 (+0000)
Subject: dev version numbers, xs and warnings dont play together nicely, so use MM->parse_vers... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5d81eb5c72c6ae2575e817ef85e223d6d016dcb;p=p5sagit%2Fp5-mst-13.2.git

dev version numbers, xs and warnings dont play together nicely, so use MM->parse_version() to smooth over the cracks....

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
--- 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
--- 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
--- 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
--- 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',