Lines 950-955
sub _clean_search_term {
Link Here
|
950 |
# and correctly ignore unevenly backslashed: |
950 |
# and correctly ignore unevenly backslashed: |
951 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
951 |
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g; |
952 |
|
952 |
|
|
|
953 |
# screen all exclamation signs that either are the last symbol or have white space after them |
954 |
$term =~ s/(?:[\s\\]*!\s*)+(\s|$)/$1/g; |
955 |
|
953 |
# screen all brackets with backslash |
956 |
# screen all brackets with backslash |
954 |
$term =~ s/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
957 |
$term =~ s/(?<!\\)(?:[\\]{2})*([\{\}\[\]])$lookahead/\\$1/g; |
955 |
return $term; |
958 |
return $term; |
956 |
- |
|
|