> I thought you are just automagicaly weaken()ing the referenced stored
> in the tied hash???
> Something like
> package Hash::NoRef;
> use Scalar::Util qw(weaken);
> require Tie::Hash;
> @ISA = (Tie::StdHash);
> sub STORE {
> $_[0]{$_[1]} = $_[2];
> weaken($_[0]{$_[1]}) if (ref $_[2]);
> }
> 'And that\'s it!';
> Am I missing something?
Itll segfault under many circumstances.
yves
