Nicholas Clark wrote:
> Currently IPC::Run fails tests with PERL_UNICODE set and a UTF-8 locale.
> The appended patch is one way to fix this. I'm not sure if it's the best
> way, so didn't apply it. Thoughts?
Thanks, applied as #23989 to blead.
Quoting the -I../.. was confusing the spawned perl since spawning it doesn't
involve a shell which would remove the quotes.
> ==== //depot/perl/lib/IPC/Run/t/run.t#2 - /Users/nick/p4perl/perl/lib/IPC/Run/t/run.t ====
> --- /tmp/tmp.9982.0 Sat Feb 19 00:25:48 2005
> +++ /Users/nick/p4perl/perl/lib/IPC/Run/t/run.t Fri Feb 18 23:53:38 2005
> @@no-spam -88,6 +88,11 @@no-spam sub _unlink {
> my $text = "Hello World\n" ;
>
> my @no-spam = ( $perl ) ;
> +# When utf8 is turned on via environment variables, then uc will attempt to
> +# use utf8; as part of the swash initialisation. The tests here run a child
> +# perl and get it to uc() strings. So that child needs to know where utf8.pm
> +# is.
> +push @no-spam "-I../.." if $ENV{PERL_CORE};
>
> my $emitter_script =
> qq{print '$text' ; print STDERR uc( '$text' ) unless \@no-spam } ;
>