diff options
Diffstat (limited to 'src/ejabberd_regexp.erl')
| -rw-r--r-- | src/ejabberd_regexp.erl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/ejabberd_regexp.erl b/src/ejabberd_regexp.erl index c454835a9..9e1a979a4 100644 --- a/src/ejabberd_regexp.erl +++ b/src/ejabberd_regexp.erl @@ -125,13 +125,12 @@ sh_to_awk_3(<<"]", Sh/binary>>, false) -> sh_to_awk_3(<<C:8, Sh/binary>>, UpArrow) -> [C|sh_to_awk_3(Sh, UpArrow)]; sh_to_awk_3(<<>>, true) -> - [$^|sh_to_awk_1([])]; + [$^|sh_to_awk_1(<<>>)]; sh_to_awk_3(<<>>, false) -> - sh_to_awk_1([]). + sh_to_awk_1(<<>>). -%% -type sh_special_char(char()) -> bool(). %% Test if a character is a special character. - +-spec sh_special_char(char()) -> boolean(). sh_special_char($|) -> true; sh_special_char($*) -> true; sh_special_char($+) -> true; @@ -146,4 +145,3 @@ sh_special_char($[) -> true; sh_special_char($]) -> true; sh_special_char($") -> true; sh_special_char(_C) -> false. - |