A small one: --- lib/Tie/Hash.pm 2003-10-12 19:46:36.000000000 +0200 +++ /home/slavenr/tmp/Hash.pm 2003-10-16 19:54:03.000000000 +0200 @@ -38,7 +38,8 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash # the reference to the actual storage sub DELETE { $_[0][1]->('del', $_[0][0], $_[1]); # Call the report writer - delete $_[0][0]->{$_[1]}; # $_[0]->SUPER::DELETE($_[1]) } + delete $_[0][0]->{$_[1]}; # $_[0]->SUPER::DELETE($_[1]) + } package main; -- Slaven Rezic - slaven <at> rezic <dot> deThread Next