http://qs321.pair.com?node_id=535961


in reply to Object Serialization Basics

I don't know in 2000, but in 2006 this doesn't work any more:
my ($newdata, @newdataset, %newdatagroup) = @$thawed;
@$thawed is an array containing three references; the first is put into $newdata, the other two end up in @newdataset:
print "$newdata - [@newdataset]\n"; __END__ SCALAR(0x81b5d78) - [ARRAY(0x81b5eb0) HASH(0x812cc00)]

Flavio
perl -ple'$_=reverse' <<<ti.xittelop@oivalf

Don't fool yourself.