Skip site navigation (1) Skip section navigation (2)

bug fix - plperl %_SHARED misspelled

From: Andrew Dunstan <andrew(at)dunslane(dot)net>
To: "Patches (PostgreSQL)" <pgsql-patches(at)postgresql(dot)org>
Subject: bug fix - plperl %_SHARED misspelled
Date: 2005-05-21 20:58:42
Message-ID: 428FA102.4080902@dunslane.net (view raw or flat)
Thread:
Lists: pgsql-patches

While building some better plperl tests today I discovered a horrid bug 
(which I regret to say is my fault), present in both 8.0 and HEAD 
branches, The attached patch needs to be applied urgently to both 
branches, please.

cheers

andrew

Index: plperl.c
===================================================================
RCS file: /projects/cvsroot/pgsql/src/pl/plperl/plperl.c,v
retrieving revision 1.73
diff -c -r1.73 plperl.c
*** plperl.c    6 May 2005 17:24:55 -0000       1.73
--- plperl.c    21 May 2005 20:56:02 -0000
***************
*** 226,232 ****
        "$PLContainer->permit_only(':default');"
        "$PLContainer->permit(qw[:base_math !:base_io sort time]);"
        "$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "
!     "&INFO &NOTICE &WARNING &ERROR %SHARED ]);"
        "sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] 
$_[1]}]); }"
                           ;
 
--- 226,232 ----
        "$PLContainer->permit_only(':default');"
        "$PLContainer->permit(qw[:base_math !:base_io sort time]);"
        "$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "
!     "&INFO &NOTICE &WARNING &ERROR %_SHARED ]);"
        "sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] 
$_[1]}]); }"
                           ;
 


Responses

pgsql-patches by date

Next:From: Magnus HaganderDate: 2005-05-22 15:25:53
Subject: Re: Updated kerberos service name patch
Previous:From: Andrew DunstanDate: 2005-05-21 20:04:36
Subject: plperl strict mode

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group