From 6326597dd68e46a2a5414fc63927d7d41a097ab5 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 29 Sep 2010 13:37:33 +0200
Subject: [PATCH] Ein-/Ausgaben in Textdateien (Druckvorlagen) zwischen UTF-8
 und internem Encoding wandeln, sofern notwendig

---
 SL/Template/LaTeX.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm
index 4377b6d0f..c515187ce 100644
--- a/SL/Template/LaTeX.pm
+++ b/SL/Template/LaTeX.pm
@@ -320,6 +320,7 @@ sub parse {
     $self->{"error"} = "$!";
     return 0;
   }
+  binmode IN, ":utf8" if $::locale->is_utf8;
   my @lines = <IN>;
   close(IN);
 
@@ -346,6 +347,7 @@ sub parse {
     return 0;
   }
 
+  binmode OUT, ":utf8" if $::locale->is_utf8;
   print(OUT $new_contents);
 
   if ($form->{"format"} =~ /postscript/i) {
-- 
2.20.1