5 @INC = ('.', '../lib');
13 eval {select undef, $blank, $blank, 0};
15 eval {select $blank, undef, $blank, 0};
17 eval {select $blank, $blank, undef, 0};
20 eval {select "", $blank, $blank, 0};
22 eval {select $blank, "", $blank, 0};
24 eval {select $blank, $blank, "", 0};
27 eval {select "a", $blank, $blank, 0};
28 like ($@, qr/^Modification of a read-only value attempted/);
29 eval {select $blank, "a", $blank, 0};
30 like ($@, qr/^Modification of a read-only value attempted/);
31 eval {select $blank, $blank, "a", 0};
32 like ($@, qr/^Modification of a read-only value attempted/);
35 # Actual sleep time on Windows may be rounded down to an integral
36 # multiple of the system clock tick interval. Clock tick interval
37 # is configurable, but usually about 15.625 milliseconds.
38 my $fudge = $^O eq "MSWin32" ? 0.1 : 0;
41 select(undef, undef, undef, $sleep);
42 ok(time-$t >= $sleep-$fudge, "$sleep seconds have passed");
47 select($empty, undef, undef, $sleep);
48 ok(time-$t >= $sleep-$fudge, "$sleep seconds have passed");