|
|
|
|
@ -699,7 +699,7 @@ tcl::namespace::eval punk::winlnk {
|
|
|
|
|
if {[file exists /mnt/$drive_letter]} { |
|
|
|
|
set link_target [file join /mnt/$drive_letter $tail $suffix_path] |
|
|
|
|
} else { |
|
|
|
|
if {$drive_letter eq [string tolower $drive_letter]]} { |
|
|
|
|
if {$drive_letter eq [string tolower $drive_letter]} { |
|
|
|
|
set op_drive_letter [string toupper $drive_letter] |
|
|
|
|
} else { |
|
|
|
|
set op_drive_letter [string tolower $drive_letter] |
|
|
|
|
|