From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 19 Feb 2005 00:27:57 +0000 (+0000)
Subject: IPC::Run test failures with utf8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f681d99c5bfa56d779c05fb079977991d03344c3;p=p5sagit%2Fp5-mst-13.2.git

IPC::Run test failures with utf8
Message-ID: <20050219002757.GO13998@plum.flirble.org>

p4raw-id: //depot/perl@23989
---

diff --git a/lib/IPC/Run/t/run.t b/lib/IPC/Run/t/run.t
index 130a18c..4f0206f 100644
--- a/lib/IPC/Run/t/run.t
+++ b/lib/IPC/Run/t/run.t
@@ -88,6 +88,11 @@ sub _unlink {
 my $text    = "Hello World\n" ;
 
 my @perl    = ( $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 @perl, q(-I../..) if $ENV{PERL_CORE};
 
 my $emitter_script =
    qq{print '$text' ; print STDERR uc( '$text' ) unless \@ARGV } ;