diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-10 16:59:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-10 16:59:54 +0000 |
| commit | 3a007784e1eca2d0ec00f898cc9a6594cb76fbdd (patch) | |
| tree | 71d09df724116cdfa1746cd4d222ec937321784c /perl_checker.src/parser_helper.ml | |
| parent | dc27419d79eebc2c435b5eab6161239a2df61f8f (diff) | |
| download | perl-MDK-Common-3a007784e1eca2d0ec00f898cc9a6594cb76fbdd.tar perl-MDK-Common-3a007784e1eca2d0ec00f898cc9a6594cb76fbdd.tar.gz perl-MDK-Common-3a007784e1eca2d0ec00f898cc9a6594cb76fbdd.tar.bz2 perl-MDK-Common-3a007784e1eca2d0ec00f898cc9a6594cb76fbdd.tar.xz perl-MDK-Common-3a007784e1eca2d0ec00f898cc9a6594cb76fbdd.zip | |
better error message ("please remove the space before the function call"
instead of "can't handle this nicely")
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index fc84b93..570e989 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -299,7 +299,9 @@ let check_parenthesized_first_argexpr word ((_, e), (_, (start, _)) as ex) = if is_parenthesized e' then if l = [] then (if want_space then sp_n else sp_0) ex - else die_with_rawpos (start, start) "can't handle this nicely" + else + (* eg: join (" ", @l) . "\n" *) + die_with_rawpos (start, start) "please remove the space before the function call" else sp_p(ex) | _ -> |