… | … | ||
---|---|---|---|
528 | sub object_freezer_as_string { | 528 | sub object_freezer_as_string { |
529 | my ($rdata, $objs) = @_; | 529 | my ($rdata, $objs) = @_; |
530 | 530 | ||
531 | use Data::Dumper; | 531 | use Data::Dumper; |
532 | 532 | ||
533 | "$$rdata\n" . Dumper $objs | 533 | $$rdata . Dumper $objs |
534 | } | 534 | } |
535 | 535 | ||
536 | sub object_thawer_load { | 536 | sub object_thawer_load { |
537 | my ($filename) = @_; | 537 | my ($filename) = @_; |
538 | 538 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |