From 457845c8b46fab3811b282877cc88cd67603f732 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 28 Apr 2004 11:31:54 +0000 Subject: add a test --- perl_checker.src/test/syntax_restrictions.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl_checker.src/test/syntax_restrictions.t') 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 <