diff options
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 |