From 5794064c2c86e158f916f3bd3568b75a8c78bc22 Mon Sep 17 00:00:00 2001 From: Andreas Kupries Date: Sun, 4 Jul 2004 23:41:54 +0000 Subject: [PATCH] * 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. --- ChangeLog | 9 +++++++++ library/vfsUtils.tcl | 4 ++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index caa981e..97c2553 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2004-07-04 Andreas Kupries + + * 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 * library/zipvfs.tcl: fix to bug finding zip header (reported on diff --git a/library/vfsUtils.tcl b/library/vfsUtils.tcl index 42d6a9b..a146c2b 100644 --- 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 ""}} { -- 2.23.0