Check-in [ad6d2d103e]
Overview
SHA1:ad6d2d103e6f819cc9890386370f5e94c0b190eb
Date: 2013-09-24 22:18:12
User: mistachkin
Comment:Fix Win32 portability issue in the VFS installation script regarding the 'null' device name.
Timelines: family | ancestors | tcl-8.6.1-MinGW-Win32
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2013-09-25
03:12
[a063fafd1f] Allow building a TclKit on Win32 using MinGW against Tcl/Tk 8.6.1. (user: mistachkin, tags: trunk)
2013-09-24
22:18
[ad6d2d103e] Closed-Leaf: Fix Win32 portability issue in the VFS installation script regarding the 'null' device name. (user: mistachkin, tags: tcl-8.6.1-MinGW-Win32)
21:28
[42c98fdbe5] Fix format of the MinGW diff file. (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