--- trunk/lib/WebPAC/Normalize.pm 2005/12/16 16:00:18 261 +++ trunk/lib/WebPAC/Normalize.pm 2005/12/19 15:34:47 295 @@ -11,11 +11,11 @@ =head1 VERSION -Version 0.06 +Version 0.07 =cut -our $VERSION = '0.06'; +our $VERSION = '0.07'; =head1 SYNOPSIS @@ -123,7 +123,7 @@ $log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l); - if ($self->{filter} && ! $self->{filter}->{regex}) { + if (! $self->{filter} || ! $self->{filter}->{regex}) { $log->debug("adding built-in filter regex"); $self->{filter}->{regex} = sub { my ($val, $regex) = @_; @@ -170,9 +170,6 @@ $log->debug("cache miss, creating"); } - undef $self->{'currnet_filename'}; - undef $self->{'headline'}; - my @sorted_tags; if ($self->{tags_by_order}) { @sorted_tags = @{$self->{tags_by_order}};