From b0e4ee5ab1b2e5beb409cd4e002d55b8d721c49f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 13 Oct 2004 07:38:03 +0000 Subject: allow join(N("xxx"), ...) --- perl_checker.src/parser_helper.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl_checker.src/parser_helper.ml') diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 40120ee..67b454f 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -55,7 +55,8 @@ let is_a_scalar = function | Ref _ | Num _ | Raw_string _ - | String _ -> true + | String _ + | Call(Deref(I_func, Ident(None, "N", _)), _) -> true | My_our(_, [ context, _ ], _) | Deref_with(_, context, _, _) | Deref(context, _) -> is_scalar_context context -- cgit v1.2.1