Storable.thaw segv on blessed reference to overloaded object

[YAMASHINA Hio <hio@hio.jp>]

Hi, all.


perl -MStorable=freeze,thaw -le '{package OVERLOADED;use overload q/""/=>sub{};}
  print thaw(freeze(bless\bless{},"OVERLOADED"))'

This snippet
  raises SEGV on perl-5.8.8 and prior,
  succeeds on perl-5.8.x,
  and croaks on perl-5.10.0/perl-current.

Attached patch for Storable.xs makes these four versions succeed.


Regards.

-- 
YAMASHINA Hio <hio@ymir.co.jp>, <hio@hio.jp>
YmirLink, Inc.

storable-segv.patch

---

Follow-Ups from:

Nicholas Clark <nick@ccl4.org>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---