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 | dc3fdb3c7a039aa6e2a1c7932ad0d232115407fc (patch) | |
| tree | fbf90f35a765aa904173ef75405b8503ab35b0b7 /perl_checker.src/parser_helper.ml | |
| parent | e96afd56ba76fac71537c38904ff45c016952de6 (diff) | |
| download | perl-MDK-Common-dc3fdb3c7a039aa6e2a1c7932ad0d232115407fc.tar perl-MDK-Common-dc3fdb3c7a039aa6e2a1c7932ad0d232115407fc.tar.gz perl-MDK-Common-dc3fdb3c7a039aa6e2a1c7932ad0d232115407fc.tar.bz2 perl-MDK-Common-dc3fdb3c7a039aa6e2a1c7932ad0d232115407fc.tar.xz perl-MDK-Common-dc3fdb3c7a039aa6e2a1c7932ad0d232115407fc.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 |