diff options
author | Nicolas Reynolds <fauno@kiwwwi.com.ar> | 2011-06-06 11:34:03 -0300 |
---|---|---|
committer | Nicolas Reynolds <fauno@kiwwwi.com.ar> | 2011-06-06 11:34:03 -0300 |
commit | 32b74695faa265e8390b32b499b34b95f186385b (patch) | |
tree | 3f4128f46d75d1eae0c261d022a73e5a24bc0e74 /testing/postgresql/perl-5.14-fix.patch | |
parent | 113cea3115f41b82346029305d739d1513239929 (diff) |
Remove evil dirs
Diffstat (limited to 'testing/postgresql/perl-5.14-fix.patch')
-rw-r--r-- | testing/postgresql/perl-5.14-fix.patch | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/testing/postgresql/perl-5.14-fix.patch b/testing/postgresql/perl-5.14-fix.patch deleted file mode 100644 index 82ef7d688..000000000 --- a/testing/postgresql/perl-5.14-fix.patch +++ /dev/null @@ -1,25 +0,0 @@ ---- a/src/pl/plperl/plperl.c -+++ b/src/pl/plperl/plperl.c -@@ -926,7 +926,7 @@ plperl_trusted_init(void) - if (!isGV_with_GP(sv) || !GvCV(sv)) - continue; - SvREFCNT_dec(GvCV(sv)); /* free the CV */ -- GvCV(sv) = NULL; /* prevent call via GV */ -+ GvCV_set(sv, NULL); /* prevent call via GV */ - } - hv_clear(stash); - ---- a/src/pl/plperl/plperl.h -+++ b/src/pl/plperl/plperl.h -@@ -49,6 +49,11 @@ - (U32)HeKUTF8(he)) - #endif - -+/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */ -+#ifndef GvCV_set -+#define GvCV_set(gv, cv) (GvCV(gv) = cv) -+#endif -+ - /* declare routines from plperl.c for access by .xs files */ - HV *plperl_spi_exec(char *, int); - void plperl_return_next(SV *); |