diff --git a/Text-BibTeX-0.66.tar.gz b/Text-BibTeX-0.66.tar.gz
deleted file mode 100644
index cb816a7..0000000
--- a/Text-BibTeX-0.66.tar.gz
+++ /dev/null
@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:47a635c8d02e6429ad07e714c2073460ea699f1440f3144b860e3b055278d573
-size 281825
diff --git a/Text-BibTeX-0.69.tar.gz b/Text-BibTeX-0.69.tar.gz
new file mode 100644
index 0000000..efc19b0
--- /dev/null
+++ b/Text-BibTeX-0.69.tar.gz
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:7fccd930786c0fd0c5f23b36b960fd95e03c43beefd4587009d7bd27e02ff0bf
+size 285395
diff --git a/perl-Text-BibTeX-uninit.patch b/perl-Text-BibTeX-uninit.patch
new file mode 100644
index 0000000..9b021ae
--- /dev/null
+++ b/perl-Text-BibTeX-uninit.patch
@@ -0,0 +1,25 @@
+Index: Text-BibTeX-0.69/btparse/src/format_name.c
+===================================================================
+--- Text-BibTeX-0.69.orig/btparse/src/format_name.c
++++ Text-BibTeX-0.69/btparse/src/format_name.c
+@@ -120,6 +120,8 @@ bt_create_name_format (char * parts, boo
+ 
+    format = (bt_name_format *) malloc (sizeof (bt_name_format));
+    format->num_parts = num_parts;
++   for (i = 0; i < BT_MAX_NAMEPARTS; i++)
++      part_pos[i] = -2;
+    for (i = 0; i < num_parts; i++)
+    {
+       switch (parts[i])
+@@ -904,6 +906,11 @@ dump_format (bt_name_format * format)
+       
+    for (i = 0; i < BT_MAX_NAMEPARTS; i++)
+    {
++      int j;
++      for (j = 0; j < format->num_parts; j++)
++         if (i == format->parts[j])
++	    break;
++      if (j == format->num_parts) continue;
+       printf ("  %-5s: pre-part=%p (%s), post-part=%p (%s)\n",
+               nameparts[i], 
+               format->pre_part[i], format->pre_part[i], 
diff --git a/perl-Text-BibTeX.changes b/perl-Text-BibTeX.changes
index 92a0e53..4a20ea4 100644
--- a/perl-Text-BibTeX.changes
+++ b/perl-Text-BibTeX.changes
@@ -1,3 +1,12 @@
+-------------------------------------------------------------------
+Fri Jun 20 14:55:33 UTC 2014 - schwab@linux-m68k.org
+
+- perl-Text-BibTeX-uninit.patch: Fix use of unitialized memory
+- update to 0.69
+  * Replacement for islower() which understands all Unicode 6.2.0
+    chars with "LOWERCASE" property
+  * Fixes for UTF-8 handling of combining marks 
+
 -------------------------------------------------------------------
 Sun Mar  3 10:07:12 UTC 2013 - schwab@suse.de
 
diff --git a/perl-Text-BibTeX.spec b/perl-Text-BibTeX.spec
index 8d0453c..34db07b 100644
--- a/perl-Text-BibTeX.spec
+++ b/perl-Text-BibTeX.spec
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Text-BibTeX
-Version:        0.66
+Version:        0.69
 Release:        0
 %define cpan_name Text-BibTeX
 Summary:        Interface to read and parse BibTeX files
@@ -27,6 +27,7 @@ Url:            http://search.cpan.org/dist/Text-BibTeX/
 Source:         http://www.cpan.org/authors/id/A/AM/AMBS/Text/%{cpan_name}-%{version}.tar.gz
 Patch:          Text-BibTeX-rpmlint.patch
 Patch1:         perl-Text-BibTeX-libdir.patch 
+Patch2:         perl-Text-BibTeX-uninit.patch 
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
@@ -74,6 +75,7 @@ pages in the library).
 %setup -q -n %{cpan_name}-%{version}
 %patch
 %patch1
+%patch2 -p1
 find . -type f -print0 | xargs -0 chmod 644
 
 %build
@@ -91,7 +93,7 @@ export CC=gcc
 
 %files -f %{name}.files
 %defattr(-,root,root,755)
-%doc CHANGES README README.OLD scripts THANKS
+%doc Changes README README.OLD scripts THANKS
 %{_libdir}/libbtparse.so
 
 %changelog