X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=bin%2Fcreate_index_pages;h=66d78386f7cc37073f7237cfd88b877035b2abe4;hp=3e9fc529f63ff74fe27dcc2590370e1e3c0c297c;hb=89c17478db69effd1c96f4e284ad46f5b4d72c17;hpb=1c880dbbb5b885dd620120354e735c06280030df

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 3e9fc52..66d7838 100755
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -10,6 +10,7 @@ use Storable;
 use HTML::Entities;
 use URI::Escape;
 use Compress::Zlib;
+use IO::Handle;
 
 use lib './lib';
 
@@ -75,6 +76,10 @@ sub open_file {
 
     print "opening $key\n";
     mkdirp ( "$wwwdir/$key" );
+    if ($fh{$key}) {
+	warn "filehandle for $key already open\n";
+	return;
+    }
     open($fh{$key}, '>',
 	 "$wwwdir/$key/$file.slices.new")
 	or die "Cannot open file $wwwdir/$key/$file.slices.new: $!";
@@ -95,6 +100,10 @@ sub close_file {
     $file ||= 'index';
 
     print "closing $key\n";
+    unless ($fh{$key}->opened()) {
+	warn "filehandle for $key already closed\n";
+	return;
+    }
 
     foreach my $lang (@LANGUAGES) {
 	print {$fh{$key}} "\n$s{begin}{$lang}\n";