No functional change.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
tcl/JobDB-Executive.tcl | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 414a77e..ed636e4 100644
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -437,12 +437,16 @@ proc preserve-task {seconds} {
exec setsid sleep $seconds > /dev/null < /dev/null 2> /dev/null &
}
+proc step-log-leafname {stepno ts} {
+ return $stepno.$ts.log
+}
+
proc step-log-filename {flight job stepno ts} {
global c
set logdir $c(Logs)/$flight/$job
file mkdir $c(Logs)/$flight
file mkdir $logdir
- return $logdir/$stepno.$ts.log
+ return $logdir/[step-log-leafname $stepno $ts]
}
}; # namespace eval jobdb
--
2.1.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
https://lists.xen.org/xen-devel
