X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=bin%2Ftrivial_slice;h=80e44a86d0b4816e4be851fa934bd6c8b9801573;hp=63c6a2e78261850958036a3e3a115d874b1b456d;hb=a6b39cb5eec2cf7d8a0d756f0090a9d8644443c9;hpb=c6fdd0f2653303fcc8a5307e106e77161f436b44

diff --git a/bin/trivial_slice b/bin/trivial_slice
index 63c6a2e..80e44a8 100755
--- a/bin/trivial_slice
+++ b/bin/trivial_slice
@@ -39,14 +39,14 @@ warn "langs=@langs\nfiles=@files\n";
 foreach my $file (@files) {
     my ($name, $path, undef) = fileparse($file,qw(.slices));
 
-    warn "name=$name path=$path out=$path$name.LANG.html.tmp\n";
+    warn "name=$name path=$path out=$path$name.LANG.html.new\n";
 
     my %out;
     foreach my $lang (@langs) {
 	my $ulang = uc($lang);
 	open($out{$ulang}, '>',
-	     "$path$name.$lang.html.tmp")
-	    or die "Couldn't open $path$name.$lang.html.tmp\n";
+	     "$path$name.$lang.html.new")
+	    or die "Couldn't open $path$name.$lang.html.new\n";
     }
 
     open my $in, '<', $file
@@ -94,9 +94,10 @@ foreach my $file (@files) {
 	}
     }
 
-    foreach my $lang (keys %out) {
-	close($out{$lang})
-	    or die "Couldn't close $path$name.$lang.html.tmp\n";
+    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");
     }