[Bast-commits] r3822 - in trunk/DBIx-Class-Schema-Loader: . lib/DBIx/Class/Schema/Loader/DBI

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-10-19 15:17:47 +0100 (Fri, 19 Oct 2007)
New Revision: 3822

Modified:
   trunk/DBIx-Class-Schema-Loader/Changes
   trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
Log:
Default Oracle db_schema to db username (patch from Johannes Plunien)

Modified: trunk/DBIx-Class-Schema-Loader/Changes
===================================================================
--- trunk/DBIx-Class-Schema-Loader/Changes	2007-10-17 15:59:12 UTC (rev 3821)
+++ trunk/DBIx-Class-Schema-Loader/Changes	2007-10-19 14:17:47 UTC (rev 3822)
@@ -1,5 +1,8 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+        - Default Oracle db_schema to db username (patch
+          from Johannes Plunien)
+
 0.04003 Wed Oct 4, 2007
         - Prevent users from running Kwalitee test automatically
         - Fix extra whitespace being added to output on

Modified: trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
===================================================================
--- trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm	2007-10-17 15:59:12 UTC (rev 3821)
+++ trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm	2007-10-19 14:17:47 UTC (rev 3822)
@@ -32,6 +32,16 @@
 
 =cut
 
+sub _setup {
+    my $self = shift;
+
+    $self->next::method(@_);
+
+    my $dbh = $self->schema->storage->dbh;
+    $self->{db_schema} ||= $dbh->selectrow_array('SELECT USER FROM DUAL', {});
+}
+
+
 sub _table_columns {
     my ($self, $table) = @_;