diff options
| -rw-r--r-- | perl_checker.src/test/syntax_restrictions.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl_checker.src/test/syntax_restrictions.t b/perl_checker.src/test/syntax_restrictions.t index 0108492..27172fb 100644 --- a/perl_checker.src/test/syntax_restrictions.t +++ b/perl_checker.src/test/syntax_restrictions.t @@ -50,5 +50,9 @@ $_xxx = 1 variable $_xxx must not be used (variable with name _XXX are reserved for unused variables) sub f2 { my ($x, $_y) = @_; $x } not enough parameters -f2(@l); # ok -f2(xxx()); # bad +f2(@l); # ok +f2(xxx()); # bad + +<<"EOF" Don't use <<"MARK", use <<MARK instead +foo +EOF |