Changeset 6501


Ignore:
Timestamp:
Aug 26, 2016 7:24:25 AM (6 years ago)
Author:
gah
Message:

fix to respect <cache> tag in tool.xml

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.6/lang/tcl/scripts/task.tcl

    r6230 r6501  
    464464    if { ![info exists _resources(-cachehosts)] ||
    465465         $_resources(-cachehosts) == "" } {
    466 puts stderr cachehosts=[info exists _resources(-cachehosts)]
     466        puts stderr cachehosts=[info exists _resources(-cachehosts)]
    467467        return 0
    468468    }
    469 if 0 {
    470     set state [$_xmlobj get "tool.cache"]
    471 puts stderr "cache tag is \"$state\""
    472     if { $state == "" } {
    473         return 0
    474     }
    475 } else {
    476     set state 1
    477 }
    478     if { ![string is boolean $state] } {
    479         return 0
     469    global env
     470    if { [info exists env(RAPPTURE_CACHE_OVERRIDE)] } {
     471        set state $env(RAPPTURE_CACHE_OVERRIDE)
     472    } else {
     473        set state [$_xmlobj get "tool.cache"]
     474    }
     475    puts stderr "cache tag is \"$state\""
     476    if { $state == ""  || ![string is boolean $state] } {
     477        return 1;                       # Default is to allow caching.
    480478    }
    481479    return $state
Note: See TracChangeset for help on using the changeset viewer.