src/pl/plperl/plc_safe_bad.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16


#  $PostgreSQL: pgsql/src/pl/plperl/plc_safe_bad.pl,v 1.3 2010/01/26 23:11:56 adunstan Exp $

# Minimal version of plc_safe_ok.pl
# that's used if Safe is too old or doesn't load for any reason

my $msg = 'trusted Perl functions disabled - please upgrade Perl Safe module';

sub mksafefunc {
	my ($name, $pragma, $prolog, $src) = @_;
	# replace $src with code to generate an error
	$src = qq{ ::elog(::ERROR,"$msg\n") };
	my $ret = eval(::mkfuncsrc($name, $pragma, '', $src));
	$@ =~ s/\(eval \d+\) //g if $@;
	return $ret;
}