Encode fallback for iso-2022-jp

Hi,

I'm writing a module to see if the given string can be encoded using
the given encoding, to find the minimal encoding to use in outgoing
emails. To do that I call encode() function with FB_CROAK fallback to
see if the encode() function dies.

This approach works realy well, except that I'm having problems with
"iso-2022-jp", because Encode::JP::JIS7 goes:

   my $octet = Encode::encode( 'euc-jp', $utf8, FB_PERLQQ );

and encode all non-jis characters into PERLQQ \x{XXXX} form and
ignores the CHECK flag. Seems to me this is a bug.

-   my $octet = Encode::encode( 'euc-jp', $utf8, FB_PERLQQ );
+   my $octet = Encode::encode( 'euc-jp', $utf8, $chk );

Hope this patch applied. Thanks,

--
Tatsuhiko Miyagawa