case sensitivity

No database is perfect, but Oracle keeps causing massive hate

$ cat test.pl
#!/pro/bin/perl

use strict;
use warnings;

use DBI;
use Data::Peek;

my $dbh = DBI->connect ("dbi:Oracle:", (split m{/} => $ENV{DBUSER}), {
    AutoCommit          => 1,
    RaiseError          => 1,
    PrintError          => 1,
    ChopBlanks          => 1,
    ShowErrorStatement  => 1,
    FetchHashKeyName    => "NAME_lc",
    });

$dbh->do ("create table foo (c_foo numeric (4) not null primary key)");
$dbh->do ("insert into foo values (1)");

DDumper [ "foo", $dbh->primary_key (undef, "PROLEP", "foo") ];
DDumper [ "FOO", $dbh->primary_key (undef, "PROLEP", "FOO") ];

$dbh->do ("drop table foo");
$ perl test.pl
$VAR1 = [
    'foo'
    ];
$VAR1 = [
    'FOO',
    'C_FOO'
    ];
$

I found out last week that MySQL is even worse, as it prohibits the use
of a space before a paren in aggregate functions. But that is not on
topic here.

-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/