diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/tcl/expected/pltcl_setup.out | 6 | ||||
| -rw-r--r-- | src/pl/tcl/sql/pltcl_setup.sql | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/src/pl/tcl/expected/pltcl_setup.out b/src/pl/tcl/expected/pltcl_setup.out index d0ef3b5f260..e213b942255 100644 --- a/src/pl/tcl/expected/pltcl_setup.out +++ b/src/pl/tcl/expected/pltcl_setup.out @@ -608,9 +608,9 @@ as $function$ # Get rid of keys that can't be expected to remain constant array set myArray $::errorCode unset myArray(POSTGRES) - unset myArray(funcname) - unset myArray(filename) - unset myArray(lineno) + unset -nocomplain myArray(funcname) + unset -nocomplain myArray(filename) + unset -nocomplain myArray(lineno) # Format into something nicer set vals [] diff --git a/src/pl/tcl/sql/pltcl_setup.sql b/src/pl/tcl/sql/pltcl_setup.sql index cda31a9c1cd..a8eaba62431 100644 --- a/src/pl/tcl/sql/pltcl_setup.sql +++ b/src/pl/tcl/sql/pltcl_setup.sql @@ -653,9 +653,9 @@ as $function$ # Get rid of keys that can't be expected to remain constant array set myArray $::errorCode unset myArray(POSTGRES) - unset myArray(funcname) - unset myArray(filename) - unset myArray(lineno) + unset -nocomplain myArray(funcname) + unset -nocomplain myArray(filename) + unset -nocomplain myArray(lineno) # Format into something nicer set vals [] |