From 45f8c190a9381a735d9b77f60bf0aec487a70bfb Mon Sep 17 00:00:00 2001
From: Tor Lillqvist <tlillqvist@novell.com>
Date: Fri, 8 Apr 2011 13:14:52 +0300
Subject: Make the list of valid distros show up also in slightly older Perl
 versions

See http://perldoc.perl.org/functions/readdir.html .
---
 autogen.sh | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'autogen.sh')

diff --git a/autogen.sh b/autogen.sh
index c83ad8c0b397..955d04ef5610 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -48,7 +48,7 @@ sub invalid_distro($$)
     print STDERR "valid values are:\n";
     my $dirh;
     opendir ($dirh, "distro-configs");
-    while (readdir ($dirh)) {
+    while (($_ = readdir ($dirh))) {
     /(.*)\.conf$/ || next;
     print STDERR "\t$1\n";
     }
-- 
cgit v1.2.3