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 2f26a0c2d20d69054aedb2d845cb204938d657d6..80e44a86d0b4816e4be851fa934bd6c8b9801573 100755 (executable)
--- 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");
     }