--- trunk/lib/WebPAC/Normalize.pm 2005/12/19 09:15:37 294 +++ 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) = @_;