| Subject: | Same variable displayed in different format |
The simple test case:
print "after tie> " .pp $self, $self;
Output is:
after tie> do {
require Symbol;
my $a = bless(Symbol::gensym(), "My");
*{$a} = bless(IO::File=IO(0x1b2f040), "IO::File");
($a, *{$a});
}
EXPECTING:
($a, $a);
The $self if GLOB is is tied to itself:
sub My::new {
my $class = shift;
my $self = bless gensym, ref( $class ) || $class;
tie *$self, $self;
}