Commit | Line | Data |
---|---|---|
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 |