On Fri, Jun 28, 2013 at 2:30 PM, Kevin Ryde <use...@zip.com.au> wrote:
> Brian Manning <c...@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
rt83490-skip_options_non_UTF-8_locale.04Jul2013.diff
Description: Binary data
_______________________________________________ gtk-perl-list mailing list gtk-perl-list@gnome.org https://mail.gnome.org/mailman/listinfo/gtk-perl-list
