--- tv_grab_eu_epgdata.in.orig  2007-12-04 19:54:22.079104882 +0100
+++ tv_grab_eu_epgdata.in.mod   2007-12-04 19:57:38.649081908 +0100
@@ -516,7 +516,16 @@

     my $xmltv_channel_list = "<tv generator-info-name=\"@@name\">\n";

-    my $writer = new XMLTV::Writer();
+    # duplicate some code (again)
+    my %w_args;
+    if (defined $opt->{output}) {
+                            my $fh = new IO::File(">$opt->{output}");
+                            die "ERROR: cannot write to $opt->{output}: $!" if not defined $fh;
+                            $w_args{OUTPUT} = $fh;
+                         }
+    $w_args{encoding} = 'ISO-8859-1';
+
+    our $writer = new XMLTV::Writer(%w_args);
     # there should be a global variable for these attributes
     $writer->start({ 'generator-info-name' => '@@name' });