Author: hmbrand
Date: Wed Sep 16 03:50:43 2009
New Revision: 13346
Modified:
dbi/trunk/lib/DBD/File.pm
Log:
Because version numbers are compared in a numeric way, prevent warnings
like
Argument "1.21_2" isn't numeric in numeric gt (>) at
.../site_perl/5.10.0/i686-linux-64int/DBD/File.pm line 260, <DATA> line 29.
Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm (original)
+++ dbi/trunk/lib/DBD/File.pm Wed Sep 16 03:50:43 2009
@@ -175,8 +175,9 @@
{
my $this = shift;
$this->{f_version} = $DBD::File::VERSION;
- for (qw( nano_version statement_version)) {
- $this->{"sql_$_"} = $DBI::SQL::Nano::versions->{$_} || "";
+ for (qw( nano_version statement_version )) {
+ # strip development release version part
+ ($this->{"sql_$_"} = $DBI::SQL::Nano::versions->{$_} || "") =~
s/_[0-9]+$//;
}
$this->{sql_handler} = $this->{sql_statement_version}
? "SQL::Statement"
