debug litsplit
parent
d00d80f474
commit
e35607dd3e
|
@ -651,7 +651,7 @@ sub litsplit
|
|||
my $l = 0;
|
||||
my $ml;
|
||||
$s =~ /^/g;
|
||||
while ($s =~ /\G((?:$lit|.+)*?)$re/gc && (!$lim || $lim <= 0 || @r+1 < $lim))
|
||||
while ($s =~ /\G((?:$lit|.+?)*?)$re/gc && (!$lim || $lim <= 0 || @r+1 < $lim))
|
||||
{
|
||||
push @r, $1;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue