Bug #4910 for YAML: YAML cannot dump objects that overload ""

Sun Jan 11 13:25:16 2004 jv [...] cpan.org - Ticket created

Subject:

YAML cannot dump objects that overload ""

When a class overloads "" (stringification), YAML::Dump dumps objects of the class as strings, hence with no internal structure.

Tue Feb 03 00:17:03 2004 rt-cpan [...] triv.org - Correspondence added

[JV - Sun Jan 11 13:25:16 2004]: Show quoted text

> When a class overloads "" (stringification), YAML::Dump dumps objects > of the class as strings, hence with no internal structure.

I ran into this problem recently as well, turns out that YAML::Node::info() uses the stringified ref to determine the class, type and unique ID for a reference. This obviously breaks if the object has overloaded '"'. The attached patch works for me, though with the author in the middle a rewrite I don't know if it is that useful to him.

--- Node.pm~ Thu Jan 29 19:59:42 2004 +++ Node.pm Thu Jan 29 19:58:35 2004 @@ -7,6 +7,7 @@ use strict; use YAML::Family; use Carp; +use overload; sub ynode { my $self; @@ -23,7 +24,7 @@ } sub info { - ($_[0] =~ qr{^(?:(.*)\=)?([^=]*)$([^\(]*)$$}o); + (overload::StrVal($_[0]) =~ qr{^(?:(.*)\=)?([^=]*)$([^\(]*)$$}o); } sub new {

Mon Jun 07 19:29:44 2004 Guest - Correspondence added

[CREIN - Tue Feb 3 00:17:03 2004]: overload::StrVal seems to be broken in various situations, this is a much more robust solution.

--- Node.pm~ Mon Jun 24 19:07:21 2002 +++ Node.pm Mon Jun 7 19:28:54 2004 @@ -7,6 +7,7 @@ use strict; use YAML::Family; use Carp; +use Scalar::Util (); sub ynode { my $self; @@ -23,7 +24,11 @@ } sub info { - ($_[0] =~ qr{^(?:(.*)\=)?([^=]*)$([^\(]*)$$}o); + return ( + Scalar::Util::blessed($_[0]), + Scalar::Util::reftype($_[0]), + Scalar::Util::refaddr($_[0]), + ); } sub new {

Thu Jan 27 05:12:55 2005 jv [...] cpan.org - Requestor JV deleted

Thu Jan 05 08:50:12 2006 ingy [...] cpan.org - Status changed from 'new' to 'resolved'

Bug #4910 for YAML: YAML cannot dump objects that overload ""

Preferred bug tracker