debug litsplit

databind
vitalif 2009-06-16 16:25:29 +00:00 committed by Vitaliy Filippov
parent d00d80f474
commit e35607dd3e
1 changed files with 1 additions and 1 deletions

View File

@ -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;
}