@INC = '.';
push @INC, '../lib';
}
+ require Config;
+ if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+ print "1..0 # Skip -- Perl configured without B module\n";
+ exit 0;
+ }
}
$| = 1;
$x=1 for @a;
>>>>
my($x, @a);
-foreach $_ (@a) {
- $x = 1;
-}
+$x = 1 foreach (@a);
####
# 19
for (my $i = 0; $i < 2;) {