Fix do_glob

j-woz · j-woz · commit 4e480cdc2f83 · 2025-09-05T16:47:11.000-05:00
diff --git a/turbine/code/lib/files.tcl b/turbine/code/lib/files.tcl
@@ -530,13 +530,13 @@ namespace eval turbine {
     }
 
     proc do_glob { result inputs } {
-        rule $inputs "glob_body $result $inputs" \
+        rule $inputs "do_glob_body $result $inputs" \
              name "glob-$result" type $::turbine::WORK
     }
     proc do_glob_body { result s } {
         set s_value [ retrieve_decr_string $s ]
         set r_value [ ::glob -nocomplain $s_value ]
-        log "glob: $s_value"
+        log "do_glob: $s_value"
 
         set i 0
         foreach v $r_value {

Original file line number	Diff line number	Diff line change
`@@ -530,13 +530,13 @@ namespace eval turbine {`
`530`	`530`	`}`
`531`	`531`
`532`	`532`	`proc do_glob { result inputs } {`
`533`		`- rule $inputs "glob_body $result $inputs" \`
	`533`	`+ rule $inputs "do_glob_body $result $inputs" \`
`534`	`534`	`name "glob-$result" type $::turbine::WORK`
`535`	`535`	`}`
`536`	`536`	`proc do_glob_body { result s } {`
`537`	`537`	`set s_value [ retrieve_decr_string $s ]`
`538`	`538`	`set r_value [ ::glob -nocomplain $s_value ]`
`539`		`- log "glob: $s_value"`
	`539`	`+ log "do_glob: $s_value"`
`540`	`540`
`541`	`541`	`set i 0`
`542`	`542`	`foreach v $r_value {`