In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/cd9d242598e2350941daad4bfd34568b2c066659?hp=075eb5c9b6ef85efb89747446c485e936a61a207>
- Log ----------------------------------------------------------------- commit cd9d242598e2350941daad4bfd34568b2c066659 Author: Karl Williamson <[email protected]> Date: Sat Dec 13 22:51:51 2014 -0700 PATCH: [perl #23171] Bleadperl breaks ZEFRAM/Hash-SharedMem This just makes sure POSIX::strerror() pays attention to the current locale. ----------------------------------------------------------------------- Summary of changes: ext/POSIX/lib/POSIX.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm index 47520c8..9186830 100644 --- a/ext/POSIX/lib/POSIX.pm +++ b/ext/POSIX/lib/POSIX.pm @@ -151,7 +151,7 @@ my %reimpl = ( exit => 'status => CORE::exit($_[0])', getenv => 'name => $ENV{$_[0]}', system => 'command => CORE::system($_[0])', - strerror => 'errno => local $! = $_[0]; "$!"', + strerror => 'errno => use locale; local $! = $_[0]; "$!"', strstr => 'big, little => CORE::index($_[0], $_[1])', chmod => 'mode, filename => CORE::chmod($_[0], $_[1])', fstat => 'fd => CORE::open my $dup, "<&", $_[0]; CORE::stat($dup)', # Gross. -- Perl5 Master Repository
