Changeset 197

Show
Ignore:
Timestamp:
05/09/06 14:01:06 (2 years ago)
Author:
ogawa
Message:

Now skips the part after '#' found, from the entry keywords.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • tagwire/trunk/tagwire.pl

    r117 r197  
    121121    my ($string, $delimiter, $case_sensitive) = @_; 
    122122    return unless $string; 
     123    $string =~ s/\#.*$//g; 
    123124    $string =~ s/(^\s+|\s+$)//g; 
    124125    $string = lc $string unless $case_sensitive; 
    …… 
    138139    return unless $string; 
    139140    my @tags; 
     141    $string =~ s/\#.*$//g; 
    140142    $string =~ s/(^\s+|\s+$)//g; 
    141143    $string = lc $string unless $case_sensitive;