Revision 582

Date:
2016/07/21 15:49:51
Author:
ahitrov
Revision Log:
DBD::Pg 3+ intarray issue

Files:

Legend:

 
Added
 
Removed
 
Modified
  • utf8/core/lib/Contenido/Object.pm

     
    457 457
    458 458 if ($state->db_encode_data) {
    459 459 foreach my $i (0..$#{$binds}) {
    460 $binds->[$i] = Encode::decode($state->db_encode_data, $binds->[$i], Encode::FB_HTMLCREF);
    460 if ( ref $binds->[$i] ) {
    461 $binds->[$i] = Data::Recursive::Encode->decode($state->db_encode_data, $binds->[$i], Encode::FB_HTMLCREF);
    462 } else {
    463 $binds->[$i] = Encode::decode($state->db_encode_data, $binds->[$i], Encode::FB_HTMLCREF);
    464 }
    461 465 }
    462 466 } elsif ( $DBD::Pg::VERSION >= '3' ) {
    463 467 foreach my $i (0..$#{$binds}) {
    464 $binds->[$i] = Encode::decode('utf-8', $binds->[$i], Encode::FB_HTMLCREF);
    468 if ( ref $binds->[$i] ) {
    469 $binds->[$i] = Data::Recursive::Encode->decode_utf8($binds->[$i]);
    470 } else {
    471 $binds->[$i] = Encode::decode('utf-8', $binds->[$i], Encode::FB_HTMLCREF);
    472 }
    465 473 }
    466 474 }
    467 475