X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=b927dc1f0700c0917e9bccbc61f0f345123c2c54;hb=51ed97f9175c71dd611f8333adeee346760d6a98;hp=59ace8af8edb2986827d2258760644eac290ee02;hpb=ebbe325acb6e18437ae01cb1b32e615c83e24641;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 59ace8af..b927dc1f 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -456,6 +456,13 @@ sub parse
 								push @t, "(\$r->[$fref->[2]]>=$1 && \$r->[$fref->[2]]<=$2)";
 							}
 							$s .= "(" . join(' || ', @t) . ")";
+						} elsif ($fref->[1] eq 't') {
+							my @t;
+							for (@val) {
+								s/\*//g;
+								push @t, "\$r->[$fref->[2]]=~/$_/i";
+							}
+							$s .= "(" . join(' || ', @t) . ")";
 						} else {
 							confess("invalid letter $fref->[1]");
 						}