diff options
author | Andrej Shadura <andrewsh@debian.org> | 2018-06-05 17:47:32 +0200 |
---|---|---|
committer | Andrej Shadura <andrewsh@debian.org> | 2018-06-05 17:47:32 +0200 |
commit | 887f6cfe7452b4ee442d1f3cd46d9648236fc28c (patch) | |
tree | 0867116262506ed8c7b0f920644911b1e5b4eca0 /lib/app-critcl/critcl.tcl | |
parent | 54125d6d989c8b39763672077b3995069dea31ad (diff) |
New upstream version 3.1.9
Diffstat (limited to 'lib/app-critcl/critcl.tcl')
-rw-r--r-- | lib/app-critcl/critcl.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/app-critcl/critcl.tcl b/lib/app-critcl/critcl.tcl index 2068c83..28c3796 100644 --- a/lib/app-critcl/critcl.tcl +++ b/lib/app-critcl/critcl.tcl @@ -368,6 +368,7 @@ proc ::critcl::app::Cmdline {argv} { if {$v::mode ne "cache"} { set name [lindex $argv 0] + set addext 0 # Split a version number off the package name. set ver {} @@ -385,6 +386,7 @@ proc ::critcl::app::Cmdline {argv} { # files. set v::outname [file rootname $name] set v::src [lrange $v::src 1 end] + set addext 1 } .tcl { # We have no discernible result shlib, take @@ -392,6 +394,7 @@ proc ::critcl::app::Cmdline {argv} { # name set v::outname [file rootname $name] + set addext 1 } "" { # See above for .tcl, except that there is no stem to @@ -418,9 +421,10 @@ proc ::critcl::app::Cmdline {argv} { append v::outname $ver } - if {[file extension $v::shlname] eq ""} { + if {$addext || ([file extension $v::shlname] eq "")} { append v::shlname [critcl::sharedlibext] } + critcl::config combine dynamic if {![llength $v::src]} { @@ -907,7 +911,7 @@ proc ::critcl::app::AssemblePackage {} { set shl [file tail $v::shlname] - CreatePackageIndex $shlibdir [file root $shl] \ + CreatePackageIndex $shlibdir [file rootname $shl] \ [PlaceTclCompanionFiles $pkgdir] CreateLicenseTerms $pkgdir CreateRuntimeSupport $pkgdir |