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