From f88836fd0f097afedf51008e95a388f6b3afba63 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 24 Jul 2012 15:31:08 -0400 Subject: [PATCH] use PL/PerlU rather than PL/Perl The trusted version of PL/Perl is not enabled by default if you follow the installation instructions for recent versions of Evergreen. Signed-off-by: Galen Charlton --- sql/base/base.sql | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/sql/base/base.sql b/sql/base/base.sql index deeaa3c..35831e0 100644 --- a/sql/base/base.sql +++ b/sql/base/base.sql @@ -622,7 +622,7 @@ CREATE OR REPLACE FUNCTION migration_tools.expand_barcode (TEXT, TEXT, INTEGER, return $barcode if (length($prefix) + length($new_barcode) + length($suffix)) > $maxlen; return "$prefix$new_barcode$suffix"; -$$ LANGUAGE PLPERL STABLE; +$$ LANGUAGE PLPERLU STABLE; CREATE OR REPLACE FUNCTION migration_tools.attempt_cast (TEXT,TEXT,TEXT) RETURNS RECORD AS $$ DECLARE @@ -729,7 +729,7 @@ CREATE OR REPLACE FUNCTION migration_tools.add_codabar_checkdigit (TEXT) RETURNS my $remainder = $total % 10; my $checkdigit = ($remainder == 0) ? $remainder : 10 - $remainder; return $barcode . $checkdigit; -$$ LANGUAGE PLPERL STRICT STABLE; +$$ LANGUAGE PLPERLU STRICT STABLE; CREATE OR REPLACE FUNCTION migration_tools.attempt_phone (TEXT,TEXT) RETURNS TEXT AS $$ DECLARE -- 1.7.2.5