require './test.pl';
}
-plan tests => 50;
+plan tests => 54;
$FS = ':';
{
# [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]")
}
}
{
$p="a,b";
utf8::upgrade $p;
- @a=split(/[, ]+/,$p);
+ eval { @a=split(/[, ]+/,$p) };
is ("$@-@a-", '-a b-', '#20912 - split() to array with /[]+/ and utf8');
}
+
+{
+ is (\@a, \@{"a"}, '@a must be global for following test');
+ $p="";
+ $n = @a = split /,/,$p;
+ is ($n, 0, '#21765 - pmreplroot hack used to return undef for 0 iters');
+}