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