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/
