regex: баг или не разобрался?

Безымянный 29.04.2013 15:20

Есть код:

#######################################
@main[]
^deleteImageFile[^getPhotoName[58]]
### End @main

#######################################
@deleteImageFile[name][path;list;name]
^if(def $name){
	$path[/i/gallery/^name.left(2)]
	$list[^file:list[$path/;^untaint[as-is]{$name}\.]]
#	$list[^file:list[$path/;8B7C49F2C0238D63\.]]
	^if($list){
		^list.menu{
			^file:delete[$path/$list.name]
		}
	}
}
### End @deleteImageFile


#######################################
@getPhotoName[id]
$result[^oSql.string{
		SELECT name
		FROM photo
		WHERE id = $id
	}[
		$.limit(1)
		$.default{}
	]
]
### End @getPhotoName

$list при выводе имени из базы получается пустой, подставляем напрямую все ок. Казалось бы все должно работать, и даже $name, приходящий из базы обернут, но не работает. Понятное дело если раскоментить второй $list, все как часы

---