From e169ac19faaa269be5ab8dab712cdc72135a40df Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 13 Oct 2004 09:13:30 +0000 Subject: check 'xxx' if $xxx (=> value is dropped) --- perl_checker.src/test/return_value.t | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perl_checker.src/test') 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 -- cgit v1.2.1