diff options
| -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 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 |