* library/vfsUtils.tcl (crc, zip): Modified the Trf adapter

	  commands. They are now adding in a "--" before the last argument
	  they get, to ensure its interpretation as data instead of being
	  misinterpreted as option should it begin with a dash. Without
	  this adding a file beginning with a dash to a filesystem will
	  fail.

diff --git a/ChangeLog b/ChangeLog
index caa981e399f47e9ab5c568052f796435729c527c..97c255387aaad8439d0763acd45cf3b743aa2fce 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2004-07-04  Andreas Kupries <andreas_kupries@users.sourceforge.net>
+       
+       * library/vfsUtils.tcl (crc, zip): Modified the Trf adapter
+         commands. They are now adding in a "--" before the last argument
+         they get, to ensure its interpretation as data instead of being
+         misinterpreted as option should it begin with a dash. Without
+         this adding a file beginning with a dash to a filesystem will
+         fail.
+
 2004-06-29  Vince Darley <vincentdarley@sourceforge.net>
 
        * library/zipvfs.tcl: fix to bug finding zip header (reported on

diff --git a/library/vfsUtils.tcl b/library/vfsUtils.tcl
index 42d6a9bff5d5f0e9a0db09170aa2f6bbc7b94136..a146c2b392a1848a9b0f8cb37e7685bddd8ecfc5 100644 (file)
--- a/library/vfsUtils.tcl
+++ b/library/vfsUtils.tcl
@@ -21,13 +21,13 @@ proc ::vfs::memchan {args} {
 # This can be overridden to use a different crc implementation
 proc ::vfs::crc {args} {
     ::package require Trf
-    uplevel 1 [list ::crc] $args
+    uplevel 1 [linsert [linsert $args end-1 "--"] 0 ::crc]
 }
 
 # This can be overridden to use a different zip implementation
 proc ::vfs::zip {args} {
     ::package require Trf
-    uplevel 1 [list ::zip] $args
+    uplevel 1 [linsert [linsert $args end-1 "--"] 0 ::zip]
 }
 
 proc ::vfs::autoMountExtension {ext cmd {pkg ""}} {