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;
}
--
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.
https://bugs.launchpad.net/bugs/668719
Title:
lr_log2report fails on processing a combined log
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/lire/+bug/668719/+subscriptions
--
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs
