Skip Menu |

This queue is for tickets about the YAML-Syck CPAN distribution.

Report information
The Basics
Id: 25700
Status: rejected
Worked: 5 min
Priority: 0/
Queue: YAML-Syck

People
Owner: TODDR [...] cpan.org
Requestors: davidgaramond [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: short tags version of blessed scalar references misinterpreted
Date: Fri, 23 Mar 2007 18:54:49 +0700
To: bug-YAML-Syck [...] rt.cpan.org
From: "David Garamond" <davidgaramond [...] gmail.com>
YAML-Syck-0.82 perl 5.8.8 i486-linux-gnu-thread-multi Linux 2.6.18-3-k7 i686 pirl $> YAML::Syck::Load "--- !!perl/scalar:var foo\n" # long tags, ok! $var = bless( do{\(my $o = 'foo')}, 'var' ); pirl $> YAML::Syck::Load "--- !var foo\n" # short tags, :( $var = 'foo'; Regards, dave
(This is a form-reply that isn't specific to your particular report) YAML::Syck has just acquired one new maintainer (me), it still doesn't have anyone that *cares* about it. But I'm willing to help solve your report & release a new version with the fix if it's easy for me. It now has a Git repository at: http://github.com/avar/YAML-Syck If your report is a patch that fixes a problem, great. Please remake the patch against Git by forking that repo and sending me a pull request on GitHub (or an update to this bug if you prefer git-format-patch(1) or some other repo provider..). Make sure to include a test for what you fixed. If your report is some code that fails (and you have a testcase for it) a patch against the test suite to demonstrate that failure would be very useful. It's OK if the test crashes and burns, see Test::More's docs for how to make TODO tests that fail now, but shouldn't. Even if it segfaults perl C<system $^X => qw/ -Mblib -MYAML::Syck .../> or something like that and checking the return value will do.
YAML.pm has exactly the same output. What's the problem? $>perl -MYAML::Syck -MData::Dumper -e 'print Dumper Load("--- !!perl/scalar:var foo\n")' $VAR1 = bless( do{\(my $o = 'foo')}, 'var' ); $>perl -MYAML -MData::Dumper -e 'print Dumper Load("--- !!perl/scalar:var foo\n")' $VAR1 = bless( do{\(my $o = 'foo')}, 'var' ); $>perl -MYAML::Syck -MData::Dumper -e 'print Dumper Load("--- !var foo\n")' $VAR1 = 'foo'; $>perl -MYAML -MData::Dumper -e 'print Dumper Load("--- !var foo\n")' $VAR1 = 'foo';