[Starkit] sdx fails to find .vfs directory

[David Zolli]

Hi,

Using the last sdx.kit (2004/05/27 19:17:53  65366-29842) it appears it
failed to find .vfs directory if you try to build a starpack without
extension:

sdx wrap tkabber-kroc-0.9.7.kit
377 updates applied

sdx wrap tkabber-kroc-0.9.7 -runtime /usr/share/tclkit/tclkit-846
Input directory not found: tkabber-kroc-0.9.vfs

The problem comes from line 94 in wrap.tcl:

set idir [file root [file tail $out]].vfs

I think it would be better to write instead:

if {[file extension $out] eq ".kit" || [file extension $out] eq ".exe"} {
	set idir [file root [file tail $out]].vfs
} else {
	set idir [file tail $out].vfs
}

Don't you think so?

-- 
David Zolli - Kroc
http://www.kroc.tk