X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=Util.pm;h=c292a1a1e87797b1333f3db474f489088630cc1d;hp=9b3a29812b18d5f2cd0590a696c8b51e32196b11;hb=HEAD;hpb=c4f7f37b019553aabda9ae50d88c71d7ac7cf5e5

diff --git a/Util.pm b/Util.pm
index 9b3a298..c292a1a 100644
--- a/Util.pm
+++ b/Util.pm
@@ -1,7 +1,7 @@
 # -*- perl -*-x
 
 # Copyright (c) 1999-2006  Debian Admin Team Members and Developers    (taken from debian/copyright in 2008 by weasel)
-# Copyright (c) 2002, 2003, 2004, 2008 Peter Palfrader
+# Copyright (c) 2002, 2003, 2004, 2008, 2009, 2011, 2012, 2014, 2015 Peter Palfrader
 
 package Util;
 
@@ -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) {