[Rt-commit] r17345 - rt/3.8/trunk/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Dec 24 22:06:03 2008
New Revision: 17345

Modified:
   rt/3.8/trunk/lib/RT/Test.pm

Log:
* we must set oracle's NLS environment variables as those
  are cached on first use

Modified: rt/3.8/trunk/lib/RT/Test.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Test.pm	(original)
+++ rt/3.8/trunk/lib/RT/Test.pm	Wed Dec 24 22:06:03 2008
@@ -296,6 +296,10 @@
 
 sub _get_dbh {
     my ($dsn, $user, $pass) = @_;
+    if ( $dsn =~ /Oracle/i ) {
+        $ENV{'NLS_LANG'} = "AMERICAN_AMERICA.AL32UTF8";
+        $ENV{'NLS_NCHAR'} = "AL32UTF8";
+    }
     my $dbh = DBI->connect(
         $dsn, $user, $pass,
         { RaiseError => 0, PrintError => 1 },