diff options
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index bb9ab670ae6..cfd3a6c8c1e 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -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], |