From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Sat, 9 Feb 2008 17:33:58 +0000 (+0100)
Subject: trivial_slice: Try to rename the right file
X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=f93688a1cce24a225145e58618ea25a0cbf0dfd3;p=deb%2Fpackages.git

trivial_slice: Try to rename the right file

Don't try to rename foo.EN.html.new, but foo.en.html.new
---

diff --git a/bin/trivial_slice b/bin/trivial_slice
index 2f26a0c..80e44a8 100755
--- a/bin/trivial_slice
+++ b/bin/trivial_slice
@@ -94,8 +94,9 @@ foreach my $file (@files) {
 	}
     }
 
-    foreach my $lang (keys %out) {
-	close($out{$lang})
+    foreach my $lang (@langs) {
+	my $ulang = uc($lang);
+	close($out{$ulang})
 	    or die "Couldn't close $path$name.$lang.html.new\n";
 	activate("$path$name.$lang.html");
     }