Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^2: "wide character in print" error in DBM::Deep

by ikegami (Pope)
on Mar 22, 2010 at 21:32 UTC ( #830172=note: print w/ replies, xml ) Need Help??


in reply to Re: "wide character in print" error in DBM::Deep
in thread "wide character in print" error in DBM::Deep

I did a bit of studying (DBM-Deep-1.0016).

  • write_value uses class DBM::Deep::Engine::Sector::Scalar for everything but references and undef.
  • ::Scalar::_init receives the value and passes it to print_at.
  • print_at expects a string of bytes. It's getting a string that contains non-bytes.

No encoding is done anywhere, as far as I've seen. Definitely a major bug. Two possible fixes:

  • Have DBM::Deep::Engine::Sector::Scalar's _init encode values.
  • Add another Sector type for strings with UTF8=1.

The latter should be simpler, more efficient, and allows the preservation of the UTF8 flag. Basically, adjust write_value and add

package DBM::Deep::Engine::Sector::Unicode; use 5.006_000; use strict; use warnings FATAL => 'all'; no warnings 'recursion'; use base qw( DBM::Deep::Engine::Sector::Scalar ); sub type { $_[0]{engine}->SIG_UNICODE } sub _init { my $self = shift; utf8::encode( $self->{data} ) if $] >= 5.008 && defined($self->{data}); $self->SUPER::_init(); } sub data { my $self = shift; my $data = $self->SUPER::data(); utf8::decode( $data ) if $] >= 5.008; return $data; } 1; __END__

And that's just for values. A separate fix is needed for the keys, I believe.


Comment on Re^2: "wide character in print" error in DBM::Deep
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://830172]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2014-11-28 21:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (200 votes), past polls