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};
21 like ($@, qr/^Modification of a read-only value attempted/);
22 eval {select $blank, "", $blank, 0};
23 like ($@, qr/^Modification of a read-only value attempted/);
24 eval {select $blank, $blank, "", 0};
25 like ($@, qr/^Modification of a read-only value attempted/);