summaryrefslogtreecommitdiff
path: root/testing/postgresql/perl-5.14-fix.patch
diff options
context:
space:
mode:
authorNicolas Reynolds <fauno@kiwwwi.com.ar>2011-06-06 11:34:03 -0300
committerNicolas Reynolds <fauno@kiwwwi.com.ar>2011-06-06 11:34:03 -0300
commit32b74695faa265e8390b32b499b34b95f186385b (patch)
tree3f4128f46d75d1eae0c261d022a73e5a24bc0e74 /testing/postgresql/perl-5.14-fix.patch
parent113cea3115f41b82346029305d739d1513239929 (diff)
Remove evil dirs
Diffstat (limited to 'testing/postgresql/perl-5.14-fix.patch')
-rw-r--r--testing/postgresql/perl-5.14-fix.patch25
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 *);