fix whitespace after legacy BEGIN

databind
vitalif 2010-07-22 21:28:00 +00:00 committed by Vitaliy Filippov
parent 55a7efee2b
commit 54fd3620a7
1 changed files with 1 additions and 1 deletions

View File

@ -480,7 +480,7 @@ $iset";
// тоже legacy, но пока оставлю...
function compile_code_fragment_begin($st, $kw, $t)
{
if (preg_match('/^([a-z_][a-z0-9_]*)(?:\s+AT\s+(.+))?(?:\s+BY\s+(.+))?(?:\s+TO\s+(.+))?/is', $t, $m))
if (preg_match('/^([a-z_][a-z0-9_]*)(?:\s+AT\s+(.+))?(?:\s+BY\s+(.+))?(?:\s+TO\s+(.+))?\s*$/is', $t, $m))
{
$st->blocks[] = $m[1];
$t = implode('.', $st->blocks);