Lines 986-992
sub clean_search_term {
Link Here
|
986 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
986 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
987 |
|
987 |
|
988 |
# screen all exclamation signs that either are the last symbol or have white space after them |
988 |
# screen all exclamation signs that either are the last symbol or have white space after them |
989 |
$term =~ s/(?:[\s\\]*!\s*)+(\s|$)/$1/g; |
989 |
$term =~ s/(?:[\s\\]*!\s*)+(\s|$|\))/$1/g; |
990 |
|
990 |
|
991 |
# screen all brackets with backslash |
991 |
# screen all brackets with backslash |
992 |
$term =~ s/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
992 |
$term =~ s/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
993 |
- |
|
|