From: Fabien Wernli <cpan@faxm0dem.org>
Date: Tue, 23 Feb 2010 14:46:11 +0000 (+0000)
Subject: Schema Object Naming Rules :
X-Git-Tag: v0.08120~3^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3963bf4c24f4bd61ef0b7e9ad9edae9aac6ab677;p=dbsrgits%2FDBIx-Class.git

Schema Object Naming Rules :
[...]
However, database names, global database names, and database link names are always case insensitive and are stored as uppercase.

# source: http://download.oracle.com/docs/cd/B19306_01/server.102/b14200/sql_elements008.htm
---

diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
index 371589e..a993977 100644
--- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
+++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
@@ -68,8 +68,8 @@ sub _dbh_get_autoinc_seq {
   }
   else {
     $source_name = $source->name;
-    $source_name = uc($source_name) unless $sql_maker->quote_char;
   }
+  $source_name = uc($source_name) unless $sql_maker->quote_char;
 
   # trigger_body is a LONG
   local $dbh->{LongReadLen} = 64 * 1024 if ($dbh->{LongReadLen} < 64 * 1024);