fix OpenIsis 0.9.0 perl bug

[webpac] / index_DBI_cache.pm

diff --git a/index_DBI_cache.pm b/index_DBI_cache.pm
index 4377382..97dd913 100644 (file)
--- a/index_DBI_cache.pm
+++ b/index_DBI_cache.pm
@@ -99,7 +99,14 @@ sub insert {
        $Table{$field}++;
 
        #$sth_cache{$field."select"}->execute($index_data) || die "cache: $field select; ".$self->{dbh}->errstr();
+
+       # XXX for some strange reason, it seems that some entries in my
+       # database produce strings which start with null byte. I suspect
+       # this to be bug in OpenIsis 0.9.0.
+       # This should fix it..
+       $index_data =~ s/^[^\w]+//;
        $index_data = substr($index_data,0,255);
+
        my $uc = uc($index_data);
        if (! $c_table->{$field}->{$ident}->{$uc}) {
                $sth_cache{$field."insert"}->execute($index_data,$ident,0) || warn "cache: $field insert ($index_data,$ident); ".$self->{dbh}->errstr();