diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-13 09:13:30 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-13 09:13:30 +0000 |
commit | 0e8d5a3cd1b213b624e8c3bab928b514220db27a (patch) | |
tree | 4d4dd292e2f739ee6e9ae57cbd866c9cae1ee9da /perl_checker.src/test | |
parent | b806dd8ca5c137d874e94294fd73543a4682fe1a (diff) | |
download | perl-MDK-Common-0e8d5a3cd1b213b624e8c3bab928b514220db27a.tar perl-MDK-Common-0e8d5a3cd1b213b624e8c3bab928b514220db27a.tar.gz perl-MDK-Common-0e8d5a3cd1b213b624e8c3bab928b514220db27a.tar.bz2 perl-MDK-Common-0e8d5a3cd1b213b624e8c3bab928b514220db27a.tar.xz perl-MDK-Common-0e8d5a3cd1b213b624e8c3bab928b514220db27a.zip |
check 'xxx' if $xxx (=> value is dropped)
Diffstat (limited to 'perl_checker.src/test')
-rw-r--r-- | perl_checker.src/test/return_value.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl_checker.src/test/return_value.t b/perl_checker.src/test/return_value.t index cae8652..a781033 100644 --- a/perl_checker.src/test/return_value.t +++ b/perl_checker.src/test/return_value.t @@ -10,6 +10,10 @@ $xxx && yyy(); value is dropped /(.*)/; value is dropped +'xxx'; + +'xxx' if $xxx; + map { xxx($_) } @l; if you don't use the return value, use "foreach" instead of "map" $xxx = chomp; () context not accepted here |