diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-12-15 15:58:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-12-15 15:58:52 +0000 |
| commit | bb5c34dc562de5e8381b80f80e47163a573e92da (patch) | |
| tree | d8fdfa878a665c09dc8b54f7b5369999612f5557 /perl_checker.src/parser_helper.ml | |
| parent | bb7e26564d9fd0f290e8d160e8e59b1c49b07546 (diff) | |
| download | perl_checker-bb5c34dc562de5e8381b80f80e47163a573e92da.tar perl_checker-bb5c34dc562de5e8381b80f80e47163a573e92da.tar.gz perl_checker-bb5c34dc562de5e8381b80f80e47163a573e92da.tar.bz2 perl_checker-bb5c34dc562de5e8381b80f80e47163a573e92da.tar.xz perl_checker-bb5c34dc562de5e8381b80f80e47163a573e92da.zip | |
- check the context on left side of =~
- !xx has the new context bool
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 |