From e35607dd3e7fc293340ba8f4b7eb9d23c97a48ed Mon Sep 17 00:00:00 2001 From: vitalif Date: Tue, 16 Jun 2009 16:25:29 +0000 Subject: [PATCH] debug litsplit --- VMX/Common.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/VMX/Common.pm b/VMX/Common.pm index 9b82b48..62c3dc6 100644 --- a/VMX/Common.pm +++ b/VMX/Common.pm @@ -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; }