database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-30 21:42:05 +03:00
Code Activity

Fix a few missed NOIND usages.

Browse Source
This commit is contained in:
Tom Lane
2001-06-09 02:19:07 +00:00
parent 0acd843c05
commit 7c106621de
7 changed files with 6 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/pl/plperl/plperl.c
View File

@ -33,7 +33,7 @@
* ENHANCEMENTS, OR MODIFICATIONS.
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.20 2001/06/01 18:17:44 tgl Exp $
* $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.21 2001/06/09 02:19:07 tgl Exp $
*
**********************************************************************/
@ -252,7 +252,7 @@ plperl_init_safe_interp(void)
*/
"require Safe; SPI::bootstrap();"
"sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');"
"$x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);"
"$x->share(qw[&elog &DEBUG &NOTICE &ERROR]);"
" return $x->reval(qq[sub { $_[0] }]); }"
};
@ -1192,8 +1192,6 @@ plperl_elog(ClientData cdata, Tcl_Interp *interp,
level = FATAL;
else if (strcmp(argv[1], "DEBUG") == 0)
level = DEBUG;
else if (strcmp(argv[1], "NOIND") == 0)
level = NOIND;
else
{
Tcl_AppendResult(interp, "Unknown elog level '", argv[1],