diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:39:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:39:32 +0000 |
| commit | 7149b65d1849bea7be351560e46dd13b3ce748f6 (patch) | |
| tree | d06faa2ae718ec8e7f78c8eaecb3d50daa1f49e7 /perl_checker.src/parser_helper.ml | |
| parent | 749daba8115512bb19567dc4404da035c583c7ab (diff) | |
| download | perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar.gz perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar.bz2 perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar.xz perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.zip | |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index e489050..075e110 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -170,7 +170,8 @@ let sp_same (_, (spaces1, _) as ter1) (_, (spaces2, _) as ter2) = else if spaces2 <> Space_0 then sp_p ter1 let check_word_alone (word, _) = - if string_of_Ident word = "time" then die_rule "please use time() instead of time"; + let s = string_of_Ident word in + if s = "time" || s = "wantarray" then die_rule (sprintf "please use %s() instead of %s" s s); word let check_parenthesized_first_argexpr word ((_, e), (_, (start, _)) as ex) = |