[libopenoffice-oodoc-perl] 02/02: Apply patch by John Zaitseff to silence lc warnings about undefined values

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch master
in repository libopenoffice-oodoc-perl.

commit 7eda7973ff81fe7214deecca8b7a900c471693c1
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Wed Dec 25 16:24:36 2013 +0100

    Apply patch by John Zaitseff to silence lc warnings about undefined values
    
    Closes: #733027
---
 debian/changelog                      |  2 ++
 debian/patches/series                 |  1 +
 debian/patches/silence-warnings.patch | 14 ++++++++++++++
 3 files changed, 17 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index d3befa4..7167f7c 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,6 +7,8 @@ libopenoffice-oodoc-perl (2.125-3) UNRELEASED; urgency=low
   [ Axel Beckert ]
   * Fix FTBFS due to interactive questions by using "rm -f" instead of
     just "rm" in debian/rules.
+  * Apply patch by John Zaitseff to silence lc warnings about undefined
+    values. (Closes: #733027)
 
  -- Salvatore Bonaccorso <carnil at debian.org>  Sun, 06 Jan 2013 22:05:21 +0100
 
diff --git a/debian/patches/series b/debian/patches/series
index 864a169..f50ebe5 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 fix-pod-errors.patch
 spelling.patch
+silence-warnings.patch
diff --git a/debian/patches/silence-warnings.patch b/debian/patches/silence-warnings.patch
new file mode 100644
index 0000000..0a6542d
--- /dev/null
+++ b/debian/patches/silence-warnings.patch
@@ -0,0 +1,14 @@
+Index: libopenoffice-oodoc-perl-2.125/OODoc/File.pm
+===================================================================
+--- libopenoffice-oodoc-perl-2.125.orig/OODoc/File.pm	2010-07-08 03:39:55.000000000 +1000
++++ libopenoffice-oodoc-perl-2.125/OODoc/File.pm	2013-12-24 16:09:54.972228124 +1100
+@@ -375,7 +375,8 @@
+ 		@_
+ 		};
+ 
+-	my $od = lc $self->{'opendocument'};
++	my $od = $self->{'opendocument'};
++	$od = lc $od if defined($od);
+ 	unless ($od)
+ 		{
+ 		if ($OpenOffice::OODoc::File::DEFAULT_OFFICE_FORMAT == 2)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libopenoffice-oodoc-perl.git