Subject: | [PATCH] Test failures in Data::ObjectDriver with Perl 5.10-RC1 |
Data-ObjectDriver fails its tests when run with bleadperl. The
following patch fixes the problems.
--- lib/Data/ObjectDriver/Driver/DBD.pm.old Fri Nov 23 12:26:01 2007
+++ lib/Data/ObjectDriver/Driver/DBD.pm Fri Nov 23 12:25:34 2007
@@ -10,6 +10,7 @@
my($name) = @_;
die "No Driver" unless $name;
my $subclass = join '::', $class, $name;
+ no strict 'refs';
unless (defined ${"${subclass}::"}) {
eval "use $subclass"; ## no critic
die $@ if $@;