From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 10 Mar 2003 22:12:37 +0000 (+0000)
Subject: Integrate (by hand) change #18386 from maint-5.8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e1c3fb40dd782fd9b634587360c23d899b86794d;p=p5sagit%2Fp5-mst-13.2.git

Integrate (by hand) change #18386 from maint-5.8
p4raw-link: @18386 on //depot/maint-5.8/perl: ae482bddc28bdefe6941bbd8dd2654bdbf1d93be

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

diff --git a/t/op/split.t b/t/op/split.t
index 3d7e898..55b2839 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 50;
+plan tests => 52;
 
 $FS = ':';
 
@@ -265,15 +265,14 @@ ok(@ary == 3 &&
 
 {
     # [perl #18195]
-    for my $a (0,1) {
-	$_ = 'readin,database,readout';
-	if ($ARGV[0])  {
-	    $_ .= chr 256;
-	    chop;
+    for my $u (0, 1) {
+	for my $a (0, 1) {
+	    $_ = 'readin,database,readout';
+	    utf8::upgrade $_ if $u;
+	    /(.+)/;
+	    my @d = split /[,]/,$1;
+	    is(join (':',@d), 'readin:database:readout', "[perl #18195]");
 	}
-	/(.+)/;
-	my @d = split /[,]/,$1;
-	is(join (':',@d), 'readin:database:readout', "[perl #18195]")
     }
 }