From: "Orton, Yves" <[EMAIL PROTECTED]>
> > 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
Then you should report an error in Scalar::Util.
Do you have an example script that segfaults?
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
