2011-05-09T07:43:30 rosti

Code (perl): (dl )

1
2
3
4
5
6

        my $dsn = "DBI:mysql:database=$cfg->{mysql}->{base};host=$cfg->{mysql}->{host};port=$cfg->{mysql}->{port}";    
        eval{
                $self->{DBH} = DBI->connect_cached(
                        $dsn, $cfg->{mysql}->{user}, $cfg->{mysql}->{pass}, {RaiseError => 1, PrintError => 0}
                );
        };

Wobei das übrigens die einzige Möglichkeit ist, über $@ (EVAL_ERROR) zu erfahren, warum der connect schief geht.

warum sollte das die einzige möglichkeit sein? als alternative kann man immer noch RaiseError auf 0 setzen und sagen:
DBI->connect($dsn, ...) or print "connect schlug fehl weil: $DBI::Errstr\n";

oder versteh ich das "die einzige Möglichkeit" irgendwie falsch?