I think maybe that you'd better show us the code that changes the attributes as there doesn't seem to be anything seriously wrong with the code that you've posted here.

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>