Small optimisations, by Brandon Black
[p5sagit/p5-mst-13.2.git] / t / op / fh.t
1 #!./perl
2
3 BEGIN {
4     chdir 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 plan tests => 8;
10
11 # symbolic filehandles should only result in glob entries with FH constructors
12
13 $|=1;
14 my $a = "SYM000";
15 ok(!defined(fileno($a)));
16 ok(!defined *{$a});
17
18 select select $a;
19 ok(defined *{$a});
20
21 $a++;
22 ok(!close $a);
23 ok(!defined *{$a});
24
25 ok(open($a, ">&STDOUT"));
26 ok(defined *{$a});
27
28 ok(close $a);
29