diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 11:31:54 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 11:31:54 +0000 |
commit | 457845c8b46fab3811b282877cc88cd67603f732 (patch) | |
tree | 7950aadaf03e8e34286dfc4304ff9065478af5be | |
parent | d57636180be4db82da5ea579b1058d5784c3d9d5 (diff) | |
download | perl_checker-457845c8b46fab3811b282877cc88cd67603f732.tar perl_checker-457845c8b46fab3811b282877cc88cd67603f732.tar.gz perl_checker-457845c8b46fab3811b282877cc88cd67603f732.tar.bz2 perl_checker-457845c8b46fab3811b282877cc88cd67603f732.tar.xz perl_checker-457845c8b46fab3811b282877cc88cd67603f732.zip |
add a test
-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 |