/[webpac2]/trunk/lib/WebPAC/Normalize.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 294 by dpavlin, Fri Dec 16 21:09:42 2005 UTC revision 295 by dpavlin, Mon Dec 19 15:34:47 2005 UTC
# Line 11  WebPAC::Normalize - data mungling for no Line 11  WebPAC::Normalize - data mungling for no
11    
12  =head1 VERSION  =head1 VERSION
13    
14  Version 0.06  Version 0.07
15    
16  =cut  =cut
17    
18  our $VERSION = '0.06';  our $VERSION = '0.07';
19    
20  =head1 SYNOPSIS  =head1 SYNOPSIS
21    
# Line 123  sub new { Line 123  sub new {
123    
124          $log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l);          $log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l);
125    
126          if ($self->{filter} && ! $self->{filter}->{regex}) {          if (! $self->{filter} || ! $self->{filter}->{regex}) {
127                  $log->debug("adding built-in filter regex");                  $log->debug("adding built-in filter regex");
128                  $self->{filter}->{regex} = sub {                  $self->{filter}->{regex} = sub {
129                          my ($val, $regex) = @_;                          my ($val, $regex) = @_;

Legend:
Removed from v.294  
changed lines
  Added in v.295

  ViewVC Help
Powered by ViewVC 1.1.26