use Config;
skip("Doesn't work with threaded perls",11)
- if $Config{useithreads};
+ if $Config{useithreads} || ($] < 5.009 && $Config{use5005threads});
runlint 'implicit-read', '1 for @ARGV', <<'RESULT', 'implicit-read in foreach';
Implicit use of $_ in foreach at -e line 1