Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

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

Report information
The Basics
Id: 48635
Status: new
Priority: 0/
Queue: Data-Dumper

People
Owner: Nobody in particular
Requestors: STBEY [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 2.125
Fixed in: 2.121



Subject: Freeze/Thaw fails in 2.125, works in 2.121
Download (untitled) / with headers
text/plain 234b
The attached files (which are experimenting with Data::Dumper's Freeze/Thaw-feature) work perfectly with Data::Dumper 2.121, but fail for unclear reasons ("Can't locate auto/Bit/Vector/Data_Dumper.al in @INC") with Data::Dumper 2.125.
Subject: DataDumperFreezeOO.pl
#!perl -w ############################################################################### ## ## ## Copyright (c) 2009 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This program is free software; you can redistribute it ## ## and/or modify it under the same terms as Perl itself. ## ## ## ############################################################################### ############################################################################### ## ## ## Shows how to use Data::Dumper to freeze and thaw Bit::Vector objects: ## ## ## ############################################################################### package Bit::Vector; use strict; sub Data_Dumper_Freeze { my $string = "Bit::Vector->new_Hex(" . $_[0]->Size() . ",q{" . $_[0]->to_Hex() . "})"; return bless(\$string,'Bit::Vector::Dumper'); } package Bit::Vector::Dumper; use strict; sub Data_Dumper_Thaw { return eval ${$_[0]}; } package UserSpace; use strict; use Bit::Vector; use Data::Dumper; my $original = Bit::Vector->new(4096); $original->Primes(); my $clone; my $dumper = Data::Dumper->new([$original], ['clone']); # defines $clone as the output variable name $dumper->Freezer('Data_Dumper_Freeze'); $dumper->Toaster('Data_Dumper_Thaw'); $dumper->Purity(1); $dumper->Indent(3); my $string = $dumper->Dump; print "\nDumper says: $string\n"; eval $string; # fills $clone die $@ if $@; my $imitation = "Bit::Vector->new_Hex(" . $clone->Size() . ",q{" . $clone->to_Hex() . "})"; print "Our results: \$clone = bless( do{\\(my \$o = '$imitation')}, 'Bit::Vector::Dumper' )->Data_Dumper_Thaw();\n\n"; __END__
Subject: DataDumperFreeze.pl
#!perl -w ############################################################################### ## ## ## Copyright (c) 2009 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This program is free software; you can redistribute it ## ## and/or modify it under the same terms as Perl itself. ## ## ## ############################################################################### ############################################################################### ## ## ## Shows how to use Data::Dumper to freeze and thaw Bit::Vector objects: ## ## ## ############################################################################### package Bit::Vector; use strict; sub Data_Dumper_Freeze { my $string = "Bit::Vector->new_Hex(" . $_[0]->Size() . ",q{" . $_[0]->to_Hex() . "})"; return bless(\$string,'Bit::Vector::Dumper'); } package Bit::Vector::Dumper; use strict; sub Data_Dumper_Thaw { return eval ${$_[0]}; } package UserSpace; use strict; use Bit::Vector; use Data::Dumper; $Data::Dumper::Freezer = 'Data_Dumper_Freeze'; $Data::Dumper::Toaster = 'Data_Dumper_Thaw'; $Data::Dumper::Purity = 1; $Data::Dumper::Indent = 3; my $original = Bit::Vector->new(4096); $original->Primes(); my $clone; my $string = Data::Dumper->Dump([$original], ['clone']); # defines $clone as the output variable name print "\nDumper says: $string\n"; eval $string; # fills $clone die $@ if $@; my $imitation = "Bit::Vector->new_Hex(" . $clone->Size() . ",q{" . $clone->to_Hex() . "})"; print "Our results: \$clone = bless( do{\\(my \$o = '$imitation')}, 'Bit::Vector::Dumper' )->Data_Dumper_Thaw();\n\n"; __END__


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.