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
