diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-02-19 00:27:57 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-02-21 16:05:22 +0000 |
| commit | f681d99c5bfa56d779c05fb079977991d03344c3 (patch) | |
| tree | cd05709f92dd74742ceee4ddd9e91ef2ee5c27a8 /lib/IPC | |
| parent | 4be427318703bf5ac0ed8706d82b913c831ebccf (diff) | |
| download | perl-f681d99c5bfa56d779c05fb079977991d03344c3.tar.gz | |
IPC::Run test failures with utf8
Message-ID: <20050219002757.GO13998@plum.flirble.org>
p4raw-id: //depot/perl@23989
Diffstat (limited to 'lib/IPC')
| -rw-r--r-- | lib/IPC/Run/t/run.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/IPC/Run/t/run.t b/lib/IPC/Run/t/run.t index 130a18c977..4f0206f487 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 } ; |