From 040eaf4711b0a76debb90b5ec07ce2d13b5ea096 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 21 Mar 2011 16:27:23 +0000
Subject: [PATCH] Add PERL_NO_GET_CONTEXT to ODBM_File

For threaded platforms, this reduces the object code size, and should slightly
reduce CPU usage.
---
 ext/ODBM_File/ODBM_File.pm | 2 +-
 ext/ODBM_File/ODBM_File.xs | 2 ++
 pod/perldelta.pod          | 7 +++++++
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ext/ODBM_File/ODBM_File.pm b/ext/ODBM_File/ODBM_File.pm
index caf8c72..5c8d10b 100644
--- a/ext/ODBM_File/ODBM_File.pm
+++ b/ext/ODBM_File/ODBM_File.pm
@@ -7,7 +7,7 @@ require Tie::Hash;
 require XSLoader;
 
 our @ISA = qw(Tie::Hash);
-our $VERSION = "1.10";
+our $VERSION = "1.11";
 
 XSLoader::load();
 
diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
index 463f8e8..15c1725 100644
--- a/ext/ODBM_File/ODBM_File.xs
+++ b/ext/ODBM_File/ODBM_File.xs
@@ -1,3 +1,5 @@
+#define PERL_NO_GET_CONTEXT
+
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 8133f35..0bc47fc 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -389,6 +389,13 @@ Eliminated use of C<exists> on array elements which has been deprecated.
 
 =item *
 
+L<ODBM_File> has been upgraded from version 1.10 to version 1.11.
+
+The XS code is now compiled with C<PERL_NO_GET_CONTEXT>, which will aid
+performance under ithreads.
+
+=item *
+
 L<PerlIO::encoding> has been upgraded from version 0.14 to 0.15
 
 =item *
-- 
2.7.4