9 @a = (1,2,3,4,5,6,7,8,9,10,11,12);
11 while ($_ = shift(@a)) {
12 if ($x = /4/../8/) { $z = $x; push @b, $x + 0; }
15 is(join("*", @b), "1*2*3*4*5");
21 @a = ('a','b','c','d','e','f','g');
26 open(of,'harness') or die "Can't open harness: $!";
28 (3 .. 5) && ($foo .= $_);
30 $x = ($foo =~ y/\n/\n/);
38 # coredump reported in bug 20001018.008
51 $SIG{__WARN__} = sub { $warn .= join '', @_ };
55 like($warn, qr/uninitialized/);
60 ok((() = ($warn =~ /isn't numeric/g)) == 2);