Commit | Line | Data |
---|---|---|
35cd451c GS |
1 | #!./perl |
2 | ||
f2f2613b | 3 | print "1..5\n"; |
35cd451c GS |
4 | |
5 | my $test = 0; | |
6 | ||
7 | # symbolic filehandles should only result in glob entries with FH constructors | |
8 | ||
648cac19 | 9 | $|=1; |
35cd451c GS |
10 | my $a = "SYM000"; |
11 | print "not " if defined(fileno($a)) or defined *{$a}; | |
12 | ++$test; print "ok $test\n"; | |
13 | ||
14 | select select $a; | |
f83494b9 | 15 | print "not " unless defined *{$a}; |
35cd451c GS |
16 | ++$test; print "ok $test\n"; |
17 | ||
f83494b9 | 18 | $a++; |
35cd451c GS |
19 | print "not " if close $a or defined *{$a}; |
20 | ++$test; print "ok $test\n"; | |
21 | ||
22 | print "not " unless open($a, ">&STDOUT") and defined *{$a}; | |
23 | ++$test; print $a "ok $test\n"; | |
24 | ||
25 | print "not " unless close $a; | |
26 | ++$test; print $a "not "; print "ok $test\n"; |