title: Perl Encode.pm cannot decode string with wide character
body: <p>I was running a perl app which uses <code>/opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level/Encode.pm</code></p>
  
  <p>and issues an error </p>
  
  <blockquote>
    <p>Cannot decode string with wide characters at /opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level/Encode.pm line 174.</p>
  </blockquote>
  
  <p>Line 174 of <code>Encode.pm</code> reads </p>
  
  <pre><code>sub decode($$;$) {
      my ( $name, $octets, $check ) = @_;
      return undef unless defined $octets;
      $octets .= '' if ref $octets;
      $check ||= 0;
      my $enc = find_encoding($name);
      unless ( defined $enc ) {
          require Carp;
          Carp::croak("Unknown encoding '$name'");
      }
      my $string = $enc-&gt;decode( $octets, $check );  # line 174
      $_[1] = $octets if $check and !ref $check and !( $check &amp; LEAVE_SRC() );
      return $string;
  }
  </code></pre>
  
  <p>Any workaround?</p>