diff options
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 5a55e03..74fad21 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -949,6 +949,8 @@ let from_PATTERN_SUBST parse { any = (s1, s2, opts) ; pos = pos } = let rec mcontext2s = function | M_none -> "()" + | M_bool -> "bool" + | M_int -> "int" | M_float -> "float" | M_string -> "string" @@ -977,6 +979,8 @@ let rec mcontext_lower c1 c2 = | M_array, M_array | M_array, M_int | M_array, M_float | M_array, M_scalar | M_array, M_list | M_hash, M_hash | M_hash, M_scalar | M_hash, M_list + | M_bool, M_bool | M_bool, M_scalar | M_bool, M_list + | M_int, M_int | M_int, M_float | M_int, M_string | M_int, M_scalar | M_int, M_list | M_float, M_float | M_float, M_string | M_float, M_scalar | M_float, M_list | M_ref _, M_scalar | M_ref _, M_list |