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 3023833..088ed68 100644 (file)
--- 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',
 );