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