On Fri, Jun 28, 2013 at 2:30 PM, Kevin Ryde <user42 zip com au> wrote:
Brian Manning <cpan xaoc org> writes:+ I18N::Langinfo->import(qw(langinfo CODESET));You could call it without importing if desired. I've used eval { $charset = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET()); };
I tried this using the attached patch, but only the skip block "I18N::Langinfo unavailable" in my patch gets hit, the other skip block is never seen using the demo script in [1]. The error returned is: ok 25 # skip Can't check LC_ALL/LANG, I18N::Langinfo unavailable; Undefined subroutine &I18N::Langinfo::CODESET called at t/options.t line 166. I'd love it if I interpreted your code snippet wrong somehow, because your suggestion above is shorter and still clear. Thanks, Brian [1] https://github.com/cpanxaoc/gtk-perl-misc/blob/master/glib_prove-options.t.sh
Attachment:
rt83490-skip_options_non_UTF-8_locale.04Jul2013.diff
Description: Binary data