Comment 2 for bug 668719

Patch for this:

/usr/share/perl5/Lire/DlfStore.pm

sub dlf_streams {
     my $self = $_[0];

     my @streams = ();
- my $sth = $self->{'_dbh'}->table_info( "", "", "dlf_%", "TABLE" );
- $sth->execute();
- while ( my $table_info = $sth->fetchrow_hashref() ) {
- next unless $table_info->{'TABLE_NAME'} =~ /^dlf_(.*)/;
- next if $table_info->{'TABLE_NAME'} =~ /_links$/;
- push @streams, $1;
- }
- $sth->finish();
+ # JB : table_info seems to fail
+ my @table_list = $self->{'_dbh'}->tables;
+ foreach my $table ( @table_list) {
+ next unless $table =~ /dlf_(.*)"/;
+ next if $table =~ /_links$/;
+ push @streams, $1;
+ }
      return @streams;
 }