From b8f9149b04ff28fb4747cfdf702aaed8f07a853e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 22 May 2013 11:08:26 +0200
Subject: [PATCH] =?utf8?q?perl5.18.0=20Kompatibilit=C3=A4t:=20t/helper/csv?=
 =?utf8?q?.t?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Betrifft um genau zu sein nicht perl5.18.0 sondern PerlIO::scalar 0.16, das ab perl5.18.0 im core ist. Eine der Änderungen ist, dass bei memory-mapped file Zugriffen immer byte Kontext erzwungen wird, und ein Fehler geworfen wird, wenn der String bereits utf8 ist.

aus perldelta:

PerlIO::scalar has been upgraded to 0.16.

The buffer scalar supplied may now only contain code pounts (sic) 0xFF or lower. [perl #109828]
---
 t/helper/csv.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/helper/csv.t b/t/helper/csv.t
index 302383371..088ed68ab 100644
--- a/t/helper/csv.t
+++ b/t/helper/csv.t
@@ -299,7 +299,7 @@ is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive hea
 #####
 
 $csv = SL::Helper::Csv->new(
-  file   => \"\x{FEFF}description\nKaffee",
+  file   => \"\x{EF}\x{BB}\x{BF}description\nKaffee",
   class  => 'SL::DB::Part',
   encoding => 'utf8',
 );
-- 
2.20.1