Follow symlinks in config dir

andypugh · web-flow · commit f6637857b2cf · 2025-01-10T15:31:39.000Z
Addresses #3258
diff --git a/tcl/bin/pickconfig.tcl b/tcl/bin/pickconfig.tcl
@@ -159,7 +159,7 @@ proc title {node} {
 }
 
 proc find_usable_nodes {startdir} {
-  return [exec find $startdir -type f \
+  return [exec find -L $startdir -type f \
          -name "*.ini" -o -name "*.demo" ]
 } ;# find_usable_nodes
 

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ proc title {node} {`
`159`	`159`	`}`
`160`	`160`
`161`	`161`	`proc find_usable_nodes {startdir} {`
`162`		`- return [exec find $startdir -type f \`
	`162`	`+ return [exec find -L $startdir -type f \`
`163`	`163`	`-name ".ini" -o -name ".demo" ]`
`164`	`164`	`} ;# find_usable_nodes`
`165`	`165`