/[Frey]/trunk/lib/Frey/DBI.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/DBI.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 994 by dpavlin, Tue Jan 6 00:21:29 2009 UTC revision 995 by dpavlin, Sun Jan 11 21:27:03 2009 UTC
# Line 24  sub as_sponge { Line 24  sub as_sponge {
24    
25          warn "# dsn: ", $self->dsn;          warn "# dsn: ", $self->dsn;
26          my $dbh = DBI->connect( $self->dsn, '', '', { RaiseError => 1 } ) || die $DBI::errstr;          my $dbh = DBI->connect( $self->dsn, '', '', { RaiseError => 1 } ) || die $DBI::errstr;
27          $dbh->do( qq{ set client_encoding='utf-8' } );          $dbh->do( qq{ set client_encoding='utf-8' } ) if $self->dsn =~ m{pg}i;
28    
29          warn "# query: ", $self->query;          warn "# query: ", $self->query;
30          my $sth = $dbh->prepare( $self->query );          my $sth = $dbh->prepare( $self->query );
Legend:
Removed from v.994  
changed lines
  Added in v.995
  ViewVC Help
Powered by ViewVC 1.1.26