[packages/perl-ldap] - up to 0.57 - silence perl warnings about possibly uninitialized var

[baggins]

commit 4b089014f8ecb1fa435e06de475003484727f6b9
Author: Jan Rękorajski <baggins at pld-linux.org>
Date:   Sat Aug 24 23:10:01 2013 +0200

    - up to 0.57
    - silence perl warnings about possibly uninitialized var

 ignore-uninitialized.patch | 22 ++++++++++++++++++++++
 perl-ldap.spec             |  8 +++++---
 2 files changed, 27 insertions(+), 3 deletions(-)
---
diff --git a/perl-ldap.spec b/perl-ldap.spec
index c660963..d327bb0 100644
--- a/perl-ldap.spec
+++ b/perl-ldap.spec
@@ -6,15 +6,16 @@
 Summary:	perl-ldap module - a client interface to LDAP servers
 Summary(pl.UTF-8):	Moduł perl-ldap - kliencki interfejs do serwerów LDAP
 Name:		perl-ldap
-Version:	0.56
-Release:	2
+Version:	0.57
+Release:	1
 Epoch:		3
 # same as perl
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
 Source0:	http://www.cpan.org/modules/by-module/Net/%{name}-%{version}.tar.gz
-# Source0-md5:	4ea517a844bad34b79f05afcfd24cc05
+# Source0-md5:	deff50f0de5d4cf95145765b6edd67d1
 Patch0:		non-unicode-dump.patch
+Patch1:		ignore-uninitialized.patch
 URL:		http://ldap.perl.org/
 BuildRequires:	perl-Authen-SASL >= 2.00
 BuildRequires:	perl-Convert-ASN1 >= 0.20
@@ -47,6 +48,7 @@ poziomu programów w Perlu.
 %prep
 %setup -q
 %patch0 -p1
+%patch1 -p1
 
 %build
 %{__perl} Makefile.PL \
diff --git a/ignore-uninitialized.patch b/ignore-uninitialized.patch
new file mode 100644
index 0000000..5b99789
--- /dev/null
+++ b/ignore-uninitialized.patch
@@ -0,0 +1,22 @@
+--- perl-ldap-0.56/lib/Net/LDAP/Util.pm~	2013-07-05 22:24:24.000000000 +0200
++++ perl-ldap-0.56/lib/Net/LDAP/Util.pm	2013-08-24 23:00:24.178648364 +0200
+@@ -755,7 +755,9 @@
+ 
+     # Time::Local's timegm() interpret years strangely
+     if ($year >= 1000) {
+-      $dec = "0.$dec";
++      if (defined($dec)) {
++        $dec = "0.$dec";
++      }
+ 
+       # decimals in case of missing minutes / seconds - see RFC 4517
+       if (!defined($min)) {
+@@ -793,7 +793,7 @@
+           }
+ 
+           # make decimal part directional
+-          if ($dec != 0) {
++          if (defined($dec) && $dec != 0) {
+             if ($time < 0) {
+               $dec = 1 - $dec;
+               $time++; 
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-ldap.git/commitdiff/4b089014f8ecb1fa435e06de475003484727f6b9