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 | 77aaee3575adb8923b4af56b40385b5958ea84a5 (patch) | |
| tree | 14da23862d90cfa6c1b3aa0ad8239ba6ea440dce /perl_checker.src/parser_helper.ml | |
| parent | 9a4b72a011db84ce1997977bebd75030226e7edf (diff) | |
| download | perl_checker-77aaee3575adb8923b4af56b40385b5958ea84a5.tar perl_checker-77aaee3575adb8923b4af56b40385b5958ea84a5.tar.gz perl_checker-77aaee3575adb8923b4af56b40385b5958ea84a5.tar.bz2 perl_checker-77aaee3575adb8923b4af56b40385b5958ea84a5.tar.xz perl_checker-77aaee3575adb8923b4af56b40385b5958ea84a5.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) | _ -> |