| CC: | gbarr [...] pobox.com |
| Subject: | Time::Piece::MySQL warnings |
Recent versions of Time::Piece gives a "sub .... refined ..." warning with Class::DBI::mysql.
Graham Barr made the following change to our local development repository to fix it:
--- /pkg/packages/perl-5.8.3/lib/site_perl/5.8.3/Class/DBI/mysql.pm
2005-09-03 14:47:02.000000000 -0700
+++ lib/Class/DBI/mysql.pm 2006-04-10 19:10:56.000000000 -0700
@@ -1,6 +1,6 @@
package Class::DBI::mysql;
-$VERSION = '1.00';
+$VERSION = '1.00_01';
=head1 NAME
@@ -101,7 +101,7 @@
next unless $how{$type};
my %args;
if ($how{$type} eq "Time::Piece") {
- eval "use Time::Piece::MySQL";
+ eval { require Time::Piece::MySQL };
$class->_croak($@) if $@;
$args{inflate} = "from_mysql_$type";
$args{deflate} = "mysql_$type";