diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-26 11:59:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-26 11:59:30 +0000 |
| commit | 4e5b51f313c38d7018170710c5779adea50d14a7 (patch) | |
| tree | 9ce59aa539e5c349c7002d2c8a376abfe4b93cdb | |
| parent | 0f3c9e4443546b082d93eacd1dd6869b21181094 (diff) | |
| download | perl-MDK-Common-4e5b51f313c38d7018170710c5779adea50d14a7.tar perl-MDK-Common-4e5b51f313c38d7018170710c5779adea50d14a7.tar.gz perl-MDK-Common-4e5b51f313c38d7018170710c5779adea50d14a7.tar.bz2 perl-MDK-Common-4e5b51f313c38d7018170710c5779adea50d14a7.tar.xz perl-MDK-Common-4e5b51f313c38d7018170710c5779adea50d14a7.zip | |
really help detecting hashrefs
| -rw-r--r-- | perl_checker.src/lexer.mll | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index 570add8..a9de7d2 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -88,8 +88,8 @@ let rec concat_bareword_paren accu = function concat_bareword_paren (e :: accu) l let rec bracket_bareword_is_hashref accu = function - | (_, Parser.BRACKET _ as bracket) :: (_, Parser.BAREWORD _ as bareword) :: (_, Parser.RIGHT_ARROW _ as right_arrow) :: l -> - bracket_bareword_is_hashref (right_arrow :: bareword :: bracket :: accu) l + | (pos, Parser.BRACKET bracket) :: (_, Parser.BAREWORD _ as bareword) :: (_, Parser.RIGHT_ARROW _ as right_arrow) :: l -> + bracket_bareword_is_hashref (right_arrow :: bareword :: (pos, Parser.BRACKET_HASHREF bracket) :: accu) l | [] -> List.rev accu | e :: l -> bracket_bareword_is_hashref (e :: accu) l |