Check-in [ad6d2d103e]
Overview
Comment:Fix Win32 portability issue in the VFS installation script regarding the 'null' device name.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tcl-8.6.1-MinGW-Win32
Files: files | file ages | folders
SHA1: ad6d2d103e6f819cc9890386370f5e94c0b190eb
User & Date: mistachkin on 2013-09-24 22:18:12
Other Links: branch diff | manifest | tags
Context
2013-09-25
03:12
Allow building a TclKit on Win32 using MinGW against Tcl/Tk 8.6.1. check-in: a063fafd1f user: mistachkin tags: trunk
2013-09-24
22:18
Fix Win32 portability issue in the VFS installation script regarding the 'null' device name. Closed-Leaf check-in: ad6d2d103e user: mistachkin tags: tcl-8.6.1-MinGW-Win32
21:28
Fix format of the MinGW diff file. check-in: 42c98fdbe5 user: mistachkin tags: tcl-8.6.1-MinGW-Win32
Changes

Modified kitsh/buildsrc/kitsh-0.0/installvfs.tcl from [b17724e7c3] to [5bb6ad9ccb].

94
95
96
97
98
99
100





101
102
103
104
105
106
107
108
		vfs::unmount /kit
	}
	"zip" {
		set kitfd [open $kitfile a+]
		fconfigure $kitfd -translation binary

		cd $vfsdir





		set zipfd [open "|zip -r - [glob *] 2> /dev/null"]
		fconfigure $zipfd -translation binary

		fcopy $zipfd $kitfd

		close $kitfd
		if {[catch {
			close $zipfd







>
>
>
>
>
|







94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
		vfs::unmount /kit
	}
	"zip" {
		set kitfd [open $kitfile a+]
		fconfigure $kitfd -translation binary

		cd $vfsdir
		if {$tcl_platform(platform) eq "windows"} {
			set null NUL
		} else {
			set null /dev/null
		}
		set zipfd [open "|zip -r - [glob *] 2> $null"]
		fconfigure $zipfd -translation binary

		fcopy $zipfd $kitfd

		close $kitfd
		if {[catch {
			close $zipfd