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?
Nicholas Clark
==== //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 } ;
On Sat, 19 Feb 2005 00:27:57 +0000, Nicholas Clark <nick@no-spam> 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?
This looks good to me, except that you probably want
push @no-spam q(-I"../..") if $ENV{PERL_CORE};
for greater portability.
> +# 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};
On Sun, Feb 20, 2005 at 11:43:30PM +0100, Rafael Garcia-Suarez wrote:
> On Sat, 19 Feb 2005 00:27:57 +0000, Nicholas Clark <nick@no-spam> 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?
>
> This looks good to me, except that you probably want
>
> push @no-spam q(-I"../..") if $ENV{PERL_CORE};
>
> for greater portability.
> > +push @no-spam "-I../.." if $ENV{PERL_CORE};
If it's VMS that's going to be the pain, don't I actually want
push @no-spam q("-I../..") if $ENV{PERL_CORE};
to stop it changing the case of the I?
Nicholas Clark
On Sun, 20 Feb 2005 22:47:33 +0000, Nicholas Clark <nick@no-spam> wrote:
> If it's VMS that's going to be the pain, don't I actually want
>
> push @no-spam q("-I../..") if $ENV{PERL_CORE};
>
> to stop it changing the case of the I?
er, right, sorry :)