1N/A# grep() and map() tests 1N/A my $x = "ok \xFF\xFF\n"; 1N/A# Tests for "for" in "map" and "grep" 1N/A# Used to dump core, bug [perl #17771] 1N/A @x = map { $y .= $_ for 1..2; 1 } 3..4; 1N/A @x = map { $y .= $_ for 1..2; $y .= $_ } 3..4; 1N/A @x = map { for (1..2) { $y .= $_ } $y .= $_ } 3..4; 1N/A @x = grep { $y .= $_ for 1..2; 1 } 3..4; 1N/A @x = grep { for (1..2) { $y .= $_ } 1 } 3..4; 1N/A # Add also a sample test from [perl #18153]. (The same bug). 1N/A print "ok $test\n"; # no core dump is all we need 1N/A # This shouldn't loop indefinitively.