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 /perl_checker.src/test/syntax_restrictions.t | |
| 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
Diffstat (limited to 'perl_checker.src/test/syntax_restrictions.t')
| -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 |