Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://830172]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2018-07-20 20:15 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (441 votes). Check out past polls.