diff --git a/perl-IO-Socket-SSL.spec b/perl-IO-Socket-SSL.spec
index bc34de6..f54f916 100644
--- a/perl-IO-Socket-SSL.spec
+++ b/perl-IO-Socket-SSL.spec
@@ -1,5 +1,5 @@
 Name:		perl-IO-Socket-SSL
-Version:	1.969
+Version:	1.970
 Release:	1%{?dist}
 Summary:	Perl library for transparent SSL
 Group:		Development/Libraries
@@ -72,6 +72,11 @@ rm -rf %{buildroot}
 %{_mandir}/man3/IO::Socket::SSL::Utils.3pm*
 
 %changelog
+* Wed Mar 19 2014 Paul Howarth <paul@city-fan.org> - 1.970-1
+- Update to 1.970
+  - Make sure sub default_ca uses a local $_ and not a version of an outer
+    scope that might be read-only (CPAN RT#93987)
+
 * Sun Mar 16 2014 Paul Howarth <paul@city-fan.org> - 1.969-1
 - Update to 1.969
   - Fix set_defaults to match documentation regarding short names
diff --git a/sources b/sources
index b526e14..4d7fe1d 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-3dedb2a7961beb8fed80cd29929b8029  IO-Socket-SSL-1.969.tar.gz
+27c275f893017873842caa5082399394  IO-Socket-SSL-1.970.tar.gz