Browse Source

fix unix breakage in winlnk

master
Julian Noble 2 days ago
parent
commit
870cac2f8b
  1. 2
      src/bootsupport/modules/punk/winlnk-0.1.1.tm
  2. 2
      src/modules/punk/winlnk-999999.0a1.0.tm
  3. 2
      src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm
  4. 2
      src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm
  5. 2
      src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm

2
src/bootsupport/modules/punk/winlnk-0.1.1.tm

@ -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]

2
src/modules/punk/winlnk-999999.0a1.0.tm

@ -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]

2
src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm

@ -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]

2
src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm

@ -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]

2
src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm

@ -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]

Loading…
Cancel
Save