Tue Oct 06 09:49:13 2015kes-kes [...] yandex.ru - Ticket created
Subject:
unexpected output for typeglob
my $fh = Symbol::gensym;
say pp *$fh, $fh;
do {
my $a = *Symbol::GEN0;
($a, $a);
}
Tue Oct 06 10:20:15 2015kes-kes [...] yandex.ru - Correspondence added
From:
kes-kes [...] yandex.ru
tie *$fh, 'Yep';
say *$fh, ' ', $fh, ' ', \*Symbol::GEN0;
say pp *$fh, $fh;
*Symbol::GEN0 GLOB(0xf4f2e0) GLOB(0xf4f2e0)
do {
require Symbol;
my $a = *Symbol::GEN0;
my $b = Symbol::gensym(); #<<-- NOT EXPECTED
$a = bless(IO::File=IO(0xf44cb8), "IO::File");
*{$b} = $a{IO};
($a, $b);
}
NOTICE: Symbol::gensym(); will generate new Symbol::GEN1 but $b is reference to $a
EXPECTED RESULTS:
my $b = \*Symbol::GEN0;
RT for rt.cpan.org