[svn:dbi] r14232 - dbi/trunk/lib/DBD

[email protected] Mon, 5 Jul 2010 06:13:17 -0700 (PDT)

Newsgroups	perl.dbi.changes
Message-ID	<[email protected]>

Author: REHSACK
Date: Mon Jul  5 06:13:16 2010
New Revision: 14232

Modified:
   dbi/trunk/lib/DBD/DBM.pm

Log:
tidy

Modified: dbi/trunk/lib/DBD/DBM.pm
==============================================================================
--- dbi/trunk/lib/DBD/DBM.pm	(original)
+++ dbi/trunk/lib/DBD/DBM.pm	Mon Jul  5 06:13:16 2010
@@ -37,7 +37,7 @@
     # do the real work in DBD::File
     #
     $attr->{Attribution} = 'DBD::DBM by Jens Rehsack';
-    my $this = $class->SUPER::driver($attr);
+    $drh = $class->SUPER::driver($attr);
 
     # install private methods
     #
@@ -50,7 +50,7 @@
         DBD::DBM::st->install_method('dbm_schema');
     }
 
-    $this;
+    return $drh;
 }
 
 sub CLONE