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: 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     94   		vfs::unmount /kit
    95     95   	}
    96     96   	"zip" {
    97     97   		set kitfd [open $kitfile a+]
    98     98   		fconfigure $kitfd -translation binary
    99     99   
   100    100   		cd $vfsdir
   101         -		set zipfd [open "|zip -r - [glob *] 2> /dev/null"]
          101  +		if {$tcl_platform(platform) eq "windows"} {
          102  +			set null NUL
          103  +		} else {
          104  +			set null /dev/null
          105  +		}
          106  +		set zipfd [open "|zip -r - [glob *] 2> $null"]
   102    107   		fconfigure $zipfd -translation binary
   103    108   
   104    109   		fcopy $zipfd $kitfd
   105    110   
   106    111   		close $kitfd
   107    112   		if {[catch {
   108    113   			close $zipfd