Ticket #12871: Perl_bindings-set_sql_mode.patch

File Perl_bindings-set_sql_mode.patch, 545 bytes (added by sphery, 4 years ago)

Set sql_mode for Perl bindings.

  • bindings/perl/MythTV.

    old new  
    372372                                      $self->{'db_user'},
    373373                                      $self->{'db_pass'})
    374374            or die "Cannot connect to database: $!\n\n";
     375        $self->{'dbh'}->do("SET SESSION sql_mode = ''")
     376            or die "Can't set sql_mode: $!\n\n";
    375377        $self->{'dbh'}->do("SET time_zone = 'Etc/UTC'")
    376378            or die "Can't set timezone: $!\n\n";
    377379