From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 22 May 2013 09:08:26 +0000 (+0200)
Subject: perl5.18.0 Kompatibilität: t/helper/csv.t
X-Git-Tag: release-3.1.0beta1~405^2~7
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b8f9149b04ff28fb4747cfdf702aaed8f07a853e;p=kivitendo-erp.git

perl5.18.0 Kompatibilität: t/helper/csv.t

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]
---

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',
 );