Show
Ignore:
Timestamp:
05/11/08 17:04:41 (4 years ago)
Author:
dom
Message:

fix much tab/whitespace damage; no functional changes.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Search/Base.pm

    r209 r431  
    99    my $who = (caller(1))[3]; 
    1010    croak "$who is an abstract method which the ".(ref shift). 
    11     " class has not provided"; 
     11          " class has not provided"; 
    1212} 
    1313 
     
    9999    my ($self, $string) = @_; 
    100100    return grep { length > 1            # ignore single characters 
    101                  and ! /^\W*$/ }        # and things composed entirely 
    102                                         #   of non-word characters 
    103           split( /\b/,                  # split at word boundaries 
     101                  and ! /^\W*$/ }       # and things composed entirely 
     102                                        # of non-word characters 
     103           split( /\b/,                 # split at word boundaries 
    104104                       lc($string)      # be case-insensitive 
    105                    ); 
     105                ); 
    106106} 
    107107