From 296dff895a9bd3090904361671d2e32c233506a9 Mon Sep 17 00:00:00 2001
From: Reini Urban <rurban@cpanel.net>
Date: Sat, 18 Jun 2016 10:18:34 +0200
Subject: [PATCH] skip t/90_csv.t parse without headers on cperl

cperl uses a different hash strategy: move-to-front
which is not stable across reads. Thus parse without headers cannot be
used at all with the current Text-CSV_XS implementation.
---
 t/90_csv.t | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git t/90_csv.t t/90_csv.t
index 3b3e8fc..a308e1f 100644
--- t/90_csv.t
+++ t/90_csv.t
@@ -76,9 +76,12 @@ ok (csv (in => $aoh, out => $tfn, headers => "auto"), "AOH out file");
 is_deeply (csv (in => $tfn, headers => "auto"), $aoh, "AOH parse out");
 
 ok (csv (in => $aoh, out => $tfn, headers => "skip"), "AOH out file no header");
-is_deeply (csv (in => $tfn, headers => [keys %{$aoh->[0]}]),
-    $aoh, "AOH parse out no header");
-
+SKIP: {
+   skip "parse without headers is unstable with unusual hash strategy", 1
+     if $Config{usecperl};
+   is_deeply (csv (in => $tfn, headers => \@hdr),
+              $aoh, "AOH parse out no header");
+}
 my $idx = 0;
 sub getrowa { return $aoa->[$idx++]; }
 sub getrowh { return $aoh->[$idx++]; }
-- 
2.8.3