diff options
Diffstat (limited to 'tests/testing.tcl')
| -rw-r--r-- | tests/testing.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 9f5ffa3..e86830c 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -4,13 +4,13 @@ # e.g. bio copy [autoopen infile] [autoopen outfile w]; collect # proc autoopen {filename {mode r}} { - set ref [ref [open $filename $mode] aio lambdaFinalizer] + set ref [ref [open.old $filename $mode] aio lambdaFinalizer] rename [getref $ref] $ref return $ref } # And make autoopen the standard open -rename open "" +rename open open.old rename autoopen open # Hardly needed |