This patch allows HTML::Template to be used with UTF-8 encoded templates.
It works for basic tasks (opening template files and includes), but it
is untested (and probably does not work) with caching.

The patch is (c) Jan "Yenya" Kasprzak <kas@fi.muni.cz>,
http://www.fi.muni.cz/~kas/ and can be distributed
under the same terms as HTML::Template itself.

--- HTML/Template.pm.orig	Mon Dec 17 13:21:08 2007
+++ HTML/Template.pm	Mon Dec 17 13:35:19 2007
@@ -648,6 +648,20 @@
 normal behavior is to look only in the current directory for a
 template to include.  Defaults to 0.
 
+=item *
+
+binmode - set the given binmode() when opening the template file and all its
+includes.
+
+Example:
+
+	my $template = HTML::Template->new(
+		filename => 'file.tmpl',
+		binmode => ':utf8'
+	);
+
+NOTE: When the template is given as scalar or filehandle instead of
+file name, this sets the binmode only on included templates).
 =back
 
 =item Debugging Options
@@ -1662,13 +1676,16 @@
     }
 
     confess("HTML::Template->new() : Cannot open included file $options->{filename} : $!")
-        unless defined(open(TEMPLATE, $filepath));
+        unless defined(open(my $fh, $filepath));
     $self->{mtime} = $self->_mtime($filepath);
 
+    if (defined $options->{binmode}) {
+        binmode $fh, $options->{binmode};
+    }
+
     # read into scalar, note the mtime for the record
-    $self->{template} = "";
-    while (read(TEMPLATE, $self->{template}, 10240, length($self->{template}))) {}
-    close(TEMPLATE);
+    { local $/; $self->{template} = <$fh>; }
+    close($fh);
 
   } elsif (exists($options->{scalarref})) {
     # copy in the template text
@@ -2264,12 +2281,14 @@
 	die "HTML::Template->new() : Cannot open included file $filename : file not found."
 	  unless defined($filepath);
 	die "HTML::Template->new() : Cannot open included file $filename : $!"
-	  unless defined(open(TEMPLATE, $filepath));              
+	  unless defined(open(my $fh, $filepath));              
 	
-	# read into the array
-	my $included_template = "";
-        while(read(TEMPLATE, $included_template, 10240, length($included_template))) {}
-	close(TEMPLATE);
+	if ($self->{options}->{binmode}) {
+		binmode $fh, $self->{options}->{binmode};
+	}
+	my $included_template;
+	{ local $/; $included_template = <$fh>; }
+	close $fh;
 	
 	# call filters if necessary
 	$self->_call_filters(\$included_template) if @{$options->{filter}};