[Bast-commits] r8810 - DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle

[faxm0dem at dev.catalyst.perl.org]

Author: faxm0dem
Date: 2010-02-23 14:46:11 +0000 (Tue, 23 Feb 2010)
New Revision: 8810

Modified:
   DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
Log:
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


Modified: DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2010-02-23 14:13:06 UTC (rev 8809)
+++ DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2010-02-23 14:46:11 UTC (rev 8810)
@@ -68,8 +68,8 @@
   }
   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);