|
|
|
|
@ -395,10 +395,9 @@ namespace eval punk::path {
|
|
|
|
|
return [join $finalparts /] |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
if {"windows" eq $::tcl_platform(platform) && [file extension [lindex $finalparts end]] eq ".lnk"} { |
|
|
|
|
if {[file extension [lindex $finalparts end]] eq ".lnk"} { |
|
|
|
|
if {![catch {package require punk::winlnk}]} { |
|
|
|
|
set path [punk::winlnk::target $result] |
|
|
|
|
if {$path ne ""} { |
|
|
|
|
if {![catch {punk::winlnk::target $result} path]} { |
|
|
|
|
return $path |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
|