Use a bit more modern perl in Util.pm, drop defined for an array check.

diff --git a/Util.pm b/Util.pm
index b970caf..c292a1a 100644 (file)
--- 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) {
 
     for my $rfd (@$readyr) {
       if ($rfd->eof) {

diff --git a/debian/changelog b/debian/changelog
index 1b89e07..342d4f6 100644 (file)
--- 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
 
   * 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
  -- Peter Palfrader <weasel@debian.org>  Sat, 03 Jan 2015 13:56:47 +0100
 
 userdir-ldap-cgi (0.3.39) unstable; urgency=medium