[or-cvs] r19684: {website} Apply patch from black penguin to fix perl errors in transla (website/trunk/en)

[phobos at seul.org]

Author: phobos
Date: 2009-06-09 21:57:52 -0400 (Tue, 09 Jun 2009)
New Revision: 19684

Modified:
   website/trunk/en/translation-status.wml
Log:
Apply patch from black penguin to fix perl errors in translation-status


Modified: website/trunk/en/translation-status.wml
===================================================================
--- website/trunk/en/translation-status.wml	2009-06-10 01:17:57 UTC (rev 19683)
+++ website/trunk/en/translation-status.wml	2009-06-10 01:57:52 UTC (rev 19684)
@@ -24,8 +24,13 @@
 
 	my @warnings;
 	for my $lang (@LANGUAGES) {
-		opendir(DIR, "$dir/$lang") or
+		my $dir_opened = opendir(DIR, "$dir/$lang");
+
+		if (! $dir_opened) {
 			$may_miss_dir or die ("Cannot opendir $dir/$lang: $!\n");
+			next;
+		}
+
 		my @files = grep { $_ ne '.' && $_ ne '..' &&
 			$_ !~ /tor-manual/i && $_ !~ /translation-status/i && $_ =~ m/^[^.]/ && -f "$dir/$lang/$_"} readdir(DIR);
 		closedir DIR;