метод @dir_copy[] из lib.p

dima 31.08.2004 17:53

# копирует содержимое директории из from_dir в $to_dir
# можно задать опцию $.is_recursive(1) - тогда будут скопированы все подкатегории
@dir_copy[from_dir;to_dir;params][list;lparams]
^if(def $from_dir && def $to_dir && $from_dir ne $to_dir){
	$lparams[^hash::create[$params]]
	$list[^file:list[$from_dir]]
	^list.menu{
		^if($lparams.is_recursive && -d "$from_dir/$list.name"){
			^dir_copy[$from_dir/$list.name;$to_dir/$list.name]
		}
		^if(-f "$from_dir/$list.name"){
			^file_copy[$from_dir/$list.name;$to_dir/$list.name]
		}
	}
}

вызываю:

^dir_copy[/from_dir;/to_dir;$.is_recursive(1)]

в каталоге from_dir около пяти вложенных каталогов, рекурсии только три!
в чем проблема?

спасибо

---