IPC::Run test failures with utf8
authorNicholas Clark <nick@ccl4.org>
Sat, 19 Feb 2005 00:27:57 +0000 (00:27 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 21 Feb 2005 16:05:22 +0000 (16:05 +0000)
Message-ID: <20050219002757.GO13998@plum.flirble.org>

p4raw-id: //depot/perl@23989

lib/IPC/Run/t/run.t

index 130a18c977747776f5d98edb427ca1b387993c04..4f0206f487620e6b85eed0172501c9ef752ce6cc 100644 (file)
@@ -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 } ;