[svn:dbi] r14397 - dbi/trunk/lib/DBI/DBD

[REHSACK]

Author: REHSACK
Date: Sun Sep 12 02:10:46 2010
New Revision: 14397

Modified:
   dbi/trunk/lib/DBI/DBD/SqlEngine.pm

Log:
rewrite a string eval into a code eval


Modified: dbi/trunk/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD/SqlEngine.pm  (original)
+++ dbi/trunk/lib/DBI/DBD/SqlEngine.pm  Sun Sep 12 02:10:46 2010
@@ -573,8 +573,7 @@
         my $drv_prefix  = DBI->driver_prefix($drv_class);
         my $ddgv        = 
$dbh->{ImplementorClass}->can("get_${drv_prefix}versions");
         my $drv_version = $ddgv ? &$ddgv( $dbh, $table ) : $dbh->{ $drv_prefix 
. "version" };
-        $drv_version ||= eval "\$" . $derived . "::VERSION";
-        ;    # XXX access $drv_class::VERSION via symbol table
+        $drv_version ||= eval { $derived->VERSION() };    # XXX access 
$drv_class::VERSION via symbol table
         $vsn{$drv_class} = $drv_version;
         $indent and $vmp{$drv_class} = " " x $indent . $drv_class;
         $indent += 2;