1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--- a/test/tcl/parallel.tcl
+++ b/test/tcl/parallel.tcl
@@ -289,16 +289,26 @@
[eval glob -nocomplain {$dir/$buildpath/db_{reptest,repsite,replicate}$EXE}] \
$destdir/$buildpath}
}
+ catch {
+ set l [eval glob {$dir/.libs} {$dir/db_{checkpoint,deadlock}$EXE} \
+ {$dir/db_{dump,load,printlog,recover,stat,upgrade}$EXE} \
+ {$dir/db_{archive,verify,hotbackup,log_verify}$EXE}]
+ foreach fn $l {
+ set fbasename [file tail $fn]
+ eval file link {$destdir/$fbasename} $fn
+ }
+ }
+ # we will be modifying this file, so we must copy, not link
catch {eval file copy \
- [eval glob {$dir/{.libs,include.tcl}}] $destdir}
+ [eval glob {$dir/include.tcl}] $destdir}
# catch {eval file copy $dir/$queuedir $destdir}
- catch {eval file copy \
- [eval glob {$dir/db_{checkpoint,deadlock}$EXE} \
- {$dir/db_{dump,load,printlog,recover,stat,upgrade}$EXE} \
- {$dir/db_{archive,verify,hotbackup,log_verify}$EXE}] \
- $destdir}
- catch {eval file copy \
- [eval glob -nocomplain {$dir/db_{reptest,repsite,replicate}$EXE}] $destdir}
+ catch {
+ set l [eval glob -nocomplain {$dir/db_{reptest,repsite,replicate}$EXE}]
+ foreach fn $l {
+ set fbasename [file tail $fn]
+ eval file link {$destdir/$fbasename} $fn
+ }
+ }
# Create modified copies of include.tcl in parallel
# directories so paths still work.
|
GitWeb
