diff options
| author | Bruce Momjian | 2000-04-26 17:51:03 +0000 |
|---|---|---|
| committer | Bruce Momjian | 2000-04-26 17:51:03 +0000 |
| commit | 0b65e1436e9ba9b9370b3caeeee550dc69c06a21 (patch) | |
| tree | e8f9270eee9b4814bb4cffd6c5c148a3ebe4a476 /src/bin/pgtclsh | |
| parent | 3c0685e42368817580fda3eec4afc55839b8eccc (diff) | |
Add res clear to example
Diffstat (limited to 'src/bin/pgtclsh')
| -rw-r--r-- | src/bin/pgtclsh/pgtclUtils.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/bin/pgtclsh/pgtclUtils.tcl b/src/bin/pgtclsh/pgtclUtils.tcl index dff87a484f..e09e8b2b3a 100644 --- a/src/bin/pgtclsh/pgtclUtils.tcl +++ b/src/bin/pgtclsh/pgtclUtils.tcl @@ -10,6 +10,7 @@ proc getDBs { {host "localhost"} {port "5432"} } { for {set i 0} {$i < $ntups} {incr i} { lappend datnames [pg_result $res -getTuple $i] } + pg_result $res -clear pg_disconnect $conn return $datnames } |