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 | 7c9690bacb9ae134d735355d4276841abb77a099 (patch) | |
| tree | a695c5556b61c9005dfd75d917440bf3325b004e /perl_checker.src | |
| parent | bae8d33e6019b2c30847868d79cca6720ef1948d (diff) | |
| download | perl-MDK-Common-7c9690bacb9ae134d735355d4276841abb77a099.tar perl-MDK-Common-7c9690bacb9ae134d735355d4276841abb77a099.tar.gz perl-MDK-Common-7c9690bacb9ae134d735355d4276841abb77a099.tar.bz2 perl-MDK-Common-7c9690bacb9ae134d735355d4276841abb77a099.tar.xz perl-MDK-Common-7c9690bacb9ae134d735355d4276841abb77a099.zip | |
add a test
Diffstat (limited to 'perl_checker.src')
| -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 |