1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Description: Silence warnings about "Use of uninitialized value in lc"
Bug-Debian: https://bugs.debian.org/733027
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=78711
Author: John Zaitseff <J.Zaitseff@zap.org.au>
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)
|
