diff --git a/src/smeggdrop/smeggdrop/interpx.tcl b/src/smeggdrop/smeggdrop/interpx.tcl index 20c1866..2a6238d 100644 --- a/src/smeggdrop/smeggdrop/interpx.tcl +++ b/src/smeggdrop/smeggdrop/interpx.tcl @@ -14,7 +14,7 @@ snit::type interpx { option -onvarcreated option -onvarupdated option -onvardestroyed - option -timeout 6000 + option -timeout 30000 constructor args { set private_key [expr rand()] @@ -135,7 +135,7 @@ method {inspect proc} proc { signal trap SIGALRM [list ::interpx::timeout $self $private_key] alarm [expr {[$self cget -timeout] / 1000.0}] } - interp limit $interp time -seconds [clock add [clock seconds] 5 seconds] + interp limit $interp time -seconds [clock add [clock seconds] 30 seconds] set code [catch {$interp eval $script} result] interp limit $interp time -seconds {} if $timeout { diff --git a/src/smeggdrop/smeggdrop/smeggdrop.tcl b/src/smeggdrop/smeggdrop/smeggdrop.tcl index f7f7f48..229cd83 100644 --- a/src/smeggdrop/smeggdrop/smeggdrop.tcl +++ b/src/smeggdrop/smeggdrop/smeggdrop.tcl @@ -176,7 +176,7 @@ proc pub:tcl:perform {nick mask hand channel line} { if [info exists versioned_interpreter] {$versioned_interpreter destroy} if ![info exists smeggdrop_state_path] {set smeggdrop_state_path state} if ![info exists smeggdrop_max_lines] {set smeggdrop_max_lines 10} -if ![info exists smeggdrop_timeout] {set smeggdrop_timeout 5000} +if ![info exists smeggdrop_timeout] {set smeggdrop_timeout 30000} if ![info exists smeggdrop_trigger] {set smeggdrop_trigger tcl} set versioned_interpreter [versioned_interpreter create %AUTO% \ diff --git a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl index 4d5269e..ffad728 100644 --- a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl +++ b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl @@ -13,7 +13,7 @@ snit::type versioned_interpreter { variable created_at option -verbose -readonly true -default false - option -timeout -readonly true -default 5000 + option -timeout -readonly true -default 30000 option -logcommand -readonly true -default {puts stderr} constructor {path_to_state args} {