diff options
Diffstat (limited to 'db/test/ddscript.tcl')
| -rw-r--r-- | db/test/ddscript.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/db/test/ddscript.tcl b/db/test/ddscript.tcl index 9b139a4cb..2d4bd722c 100644 --- a/db/test/ddscript.tcl +++ b/db/test/ddscript.tcl @@ -1,9 +1,9 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Copyright (c) 1996-2003 # Sleepycat Software. All rights reserved. # -# $Id: ddscript.tcl,v 11.7 2000/05/08 19:26:37 sue Exp $ +# $Id: ddscript.tcl,v 11.13 2003/01/08 05:49:30 bostic Exp $ # # Deadlock detector script tester. # Usage: ddscript dir test lockerid objid numprocs @@ -32,12 +32,13 @@ set lockerid [ lindex $argv 2 ] set objid [ lindex $argv 3 ] set numprocs [ lindex $argv 4 ] -set myenv [berkdb env -lock -home $dir -create -mode 0644] +set myenv [berkdb_env -lock -home $dir -create -mode 0644 ] error_check_bad lock_open $myenv NULL error_check_good lock_open [is_substr $myenv "env"] 1 puts [eval $tnum $myenv $lockerid $objid $numprocs] +error_check_good lock_id_free [$myenv lock_id_free $lockerid] 0 error_check_good envclose [$myenv close] 0 exit |