Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Storable CPAN distribution.

Report information
The Basics
Id: 36308
Status: open
Priority: 0/
Queue: Storable

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

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



Subject: storing a hash with a 14 character key blows up terminal
Download (untitled) / with headers
text/plain 762b
Any hash with an exactly 14 character key blows up the terminal. The frozen data -does- thaw correctly. However when storing frozen data in a database and selecting it will completely destroy the terminal charset. -------------------------------- #!/usr/bin/perl use strict; use warnings; use Storable; use Data::Dumper; my %hashdata = ( mmmmmmmmmmmmmm => 1, ); my $afterfreeze = Storable::nfreeze(\%hashdata); warn Dumper($afterfreeze); ----------------------------- results in a completely screwed up terminal: :· $ ┘±⎺┤┌▒␤@␍␊┴:· $ ┘±⎺┤┌▒␤@␍␊┴:· $ ┘±⎺┤┌▒␤@␍␊┴:· $ ┘±⎺┤┌▒␤@␍␊┴:· $ ┘±⎺┤┌▒␤@␍␊┴:· $ ┘±⎺┤┌▒␤@␍␊┴:· $
Download (untitled) / with headers
text/plain 1018b
I suppose if this is normal its ok to close out, I was really curious as if binary data is expected , which it probably is since it does thaw On Fri May 30 15:36:28 2008, JGOULAH wrote: Show quoted text
> Any hash with an exactly 14 character key blows up the terminal. The > frozen data -does- thaw correctly. However when storing frozen data in > a database and selecting it will completely destroy the terminal charset. > > -------------------------------- > #!/usr/bin/perl > > use strict; > use warnings; > > use Storable; > use Data::Dumper; > > my %hashdata = ( > mmmmmmmmmmmmmm => 1, > ); > > my $afterfreeze = Storable::nfreeze(\%hashdata); > > warn Dumper($afterfreeze); > > ----------------------------- > > > results in a completely screwed up terminal: > > :· $ > ┘±⎺┤┌▒␤@␍␊┴:· $ > ┘±⎺┤┌▒␤@␍␊┴:· $ > ┘±⎺┤┌▒␤@␍␊┴:· $ > ┘±⎺┤┌▒␤@␍␊┴:· $ > ┘±⎺┤┌▒␤@␍␊┴:· $ > ┘±⎺┤┌▒␤@␍␊┴:· $


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.