diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-05-26 13:55:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-05-26 13:55:19 +0000 |
| commit | 9c32c506136dec6694675f66e869eeea28e5ce3c (patch) | |
| tree | f49802ad410f5f12c6f7b53dff088f74f931a710 /perl_checker.src/parser_helper.ml | |
| parent | fdb0bdb253df87dbe4942d4d5afcc687bda6b366 (diff) | |
| download | perl-MDK-Common-9c32c506136dec6694675f66e869eeea28e5ce3c.tar perl-MDK-Common-9c32c506136dec6694675f66e869eeea28e5ce3c.tar.gz perl-MDK-Common-9c32c506136dec6694675f66e869eeea28e5ce3c.tar.bz2 perl-MDK-Common-9c32c506136dec6694675f66e869eeea28e5ce3c.tar.xz perl-MDK-Common-9c32c506136dec6694675f66e869eeea28e5ce3c.zip | |
add a special case to handle "arch => 1" without going through word_alone()
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 654999a..5468c3a 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -663,11 +663,11 @@ let to_Call_op_ mcontext prio op para esp_start esp_end = let pos = raw_pos_range esp_start esp_end in new_any mcontext { priority = prio ; expr = cook_call_op op para pos } esp_start.spaces pos -let followed_by_comma pesp true_comma = - if true_comma.any then pesp.any.expr else - match split_last pesp.any.expr with +let followed_by_comma expr true_comma = + if true_comma then expr else + match split_last expr with | l, Ident(None, s, pos) -> l @ [Raw_string(s, pos)] - | _ -> pesp.any.expr + | _ -> expr let pot_strings = Hashtbl.create 16 |