Changeset 8
- Timestamp:
- 05/03/06 23:59:23 (4 years ago)
- Files:
-
- 1 modified
-
trunk/lib/Data/ObjectDriver/Driver/DBI.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Data/ObjectDriver/Driver/DBI.pm
r7 r8 21 21 } 22 22 ## Rebless the driver into the DSN-specific subclass (e.g. "mysql"). 23 my($type) = lc($driver->dsn)=~ /^dbi:(\w*)/;23 my($type) = $driver->dsn =~ /^dbi:(\w*)/; 24 24 my $class = ref($driver) . '::' . $type; 25 25 eval "use $class";
