From 590cf520c4108918c493ad992f39695eb27c181d Mon Sep 17 00:00:00 2001
From: Tollef Fog Heen <tfheen@err.no>
Date: Sat, 5 Aug 2017 23:58:17 +0200
Subject: [PATCH] Use a bit more modern perl in Util.pm, drop defined for an
 array check.

---
 Util.pm          | 2 +-
 debian/changelog | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Util.pm b/Util.pm
index b970caf..c292a1a 100644
--- a/Util.pm
+++ b/Util.pm
@@ -474,7 +474,7 @@ sub readwrite3($$$$) {
       }
     }
 
-    next unless (defined(@$readyr)); # Wait some more.
+    next unless (@$readyr); # Wait some more.
 
     for my $rfd (@$readyr) {
       if ($rfd->eof) {
diff --git a/debian/changelog b/debian/changelog
index 1b89e07..342d4f6 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,9 @@ userdir-ldap-cgi (0.3.40) UNRELEASED; urgency=medium
   * Drop SSH key fingerprint info from machines.cgi pages
   * Give an example of the show command
 
+  [ Tollef Fog Heen ]
+  * Use a bit more modern perl in Util.pm, drop defined for an array check.
+
  -- Peter Palfrader <weasel@debian.org>  Sat, 03 Jan 2015 13:56:47 +0100
 
 userdir-ldap-cgi (0.3.39) unstable; urgency=medium
-- 
2.20.1