Skip Menu |
 

This queue is for tickets about the Data-Dump-Streamer CPAN distribution.

Report information
The Basics
Id: 24330
Status: new
Priority: 0/
Queue: Data-Dump-Streamer

People
Owner: Nobody in particular
Requestors: jjore [...] cpan.org
Cc: fglock [...] gmail.com
joshua.gatcomb [...] gmail.com
AdminCc:

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



CC: fglock [...] gmail.com, joshua.gatcomb [...] gmail.com
Subject: ->OUTSIDE relationships from code aren't reproduced in the output, breaks roundtrip
Download (untitled) / with headers
text/plain 1.7k
fglock reports that the following snippet is "incorrect." The output also follows. In data, the function $v[2] has an ->OUTSIDE reference to $v[1] which means it can access anything reachable from $v[1]. The serialized function doesn't reconstruct that. $v[2] has no direct mention of $y so it loses access to it. This is a failed round-trip. I suggest adding a fixup step routine to DDS to set $v[2]->OUTSIDE = $v[1]. Not sure how best to accomplish that. An ->OUTSIDE mutator is not currently exposed by B::Generate but it could be. DDS already has XS, perhaps it can be be implemented here. Filing the RT for reference purposes. #!perl use Data::Dump::Streamer; use strict; use strict; my @v; $v[0] = do { my $x = 3; sub { $x; eval $_[0] } }; # set up closure $v[0]( ' print "x=$x\n" ' ); # execute in this context level print "sub=$v[0]\n"; $v[1] = $v[0]( ' do { my $y = 4; sub { $y; eval $_[0] } } ' ); # add a pad level $v[1]( ' print "y=$y\n" ' ); # execute in this context level $v[2] = $v[1]( ' do { my $z = 7; sub { $z; eval $_[0] } } ' ); # add a pad level $v[2]( ' $y++ ' ); # execute in this context level $v[2]( ' print "y=$y\n" ' ); # execute in this context level $v[2]( ' print "done\n" ' ); # execute in this context level $v[2]( ' my $k = $y + 1; print "k=", $k, "\n" ' ); # execute in this context level print "Dump:\n", Dump( \@v ); __END__ x=3 sub=CODE(0x812a180) y=4 y=5 done k=6 Dump: my ($x,$y,$z); $x = 3; $y = 5; $z = 7; $ARRAY1 = [ sub { use strict 'refs'; $x; eval $_[0]; }, sub { use strict 'refs'; $y; eval $_[0]; }, sub { use strict 'refs'; $z; eval $_[0]; } ];


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.