Andrew Dunstan wrote:
Andrew Dunstan wrote:
Greg Sabino Mullane wrote:
I read that Perl 5.10 is about to hit Fedora rawhide. Anyone know if
it will work with plperl and/or DBD::Pg? If there are fixes needed
in plperl, it'd sure be nice if they were in 8.3 ...
I've tested 5.10 against both and they seem to work fine. My plperl
tests
are not necessarily thorough, but it compiled smoothly and ran a
bunch of
plperlu code without a problem. DBD::Pg worked fine, all its tests
passed.
For plperl, we need to test at least:
* standard plperl regression tests
* the UTF8 problem we recently fixed
First news is not good. On my test we have failed one of the
regression tests - the "use strict" processing seems to be backwards.
I will try to get to the bottom of it.
This problem has been identified by Simon Cozens as a bug in perl 5.10
(in that it is an undocumented change in Safe.pm). he will file a perl
bug report on it. The small patch below (also his suggestion, more or
less) fixes the problem. We turn on access to the caller opcode just
while we load the strict module. This should be perfectly safe. I intend
to apply it shortly and to backpatch it, unless there's an objection.
The UTF8 code appears to be still working, which was the other concern I
had.
cheers
andrew
Index: plperl.c
===================================================================
RCS file: /cvsroot/pgsql/src/pl/plperl/plperl.c,v
retrieving revision 1.134
diff -c -u -r1.134 plperl.c
cvs diff: conflicting specifications of output style
--- plperl.c 1 Dec 2007 17:58:42 -0000 1.134
+++ plperl.c 22 Jan 2008 02:31:08 -0000
@@ -272,8 +272,8 @@
"sub ::mksafefunc {" \
" my $ret = $PLContainer->reval(qq[sub { $_[0] $_[1] }]); " \
" $@ =~ s/\\(eval \\d+\\) //g if $@; return $ret; }" \
- "$PLContainer->permit('require'); $PLContainer->reval('use
strict;');" \
- "$PLContainer->deny('require');" \
+ "$PLContainer->permit(qw[require caller]);
$PLContainer->reval('use strict;');" \
+ "$PLContainer->deny(qw[require caller]); " \
"sub ::mk_strict_safefunc {" \
" my $ret = $PLContainer->reval(qq[sub { BEGIN {
strict->import(); } $_[0] $_[1] }]); " \
" $@ =~ s/\\(eval \\d+\\) //g if $@; return $ret; }"
---------------------------(end of broadcast)---------------------------
TIP 1: if posting/reading through Usenet, please send an appropriate
subscribe-nomail command to [EMAIL PROTECTED] so that your
message can get through to the mailing list cleanly
