From fd6b7ef44d39b45e820c09ea10fb1fccc99a5e16 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <merijn@nb09.procura.nl>
Date: Fri, 26 Sep 2008 16:49:36 +0200
Subject: [PATCH] Allocated length for PV's depends on arch (upped test to 8)

---
 ChangeLog      | 4 ++++
 DDumper.pm     | 2 +-
 t/30_DDump-s.t | 4 ++--
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 009a222..6e0880d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-26 0.16 - H.Merijn Brand   <h.m.brand@xs4all.nl>
+
+	* Allocated length for PV's depends on arch (upped test to 8)
+
 2008-09-26 0.15 - H.Merijn Brand   <h.m.brand@xs4all.nl>
 
 	* Start writing tests for DDump ()
diff --git a/DDumper.pm b/DDumper.pm
index 6d28e32..bdeaf91 100644
--- a/DDumper.pm
+++ b/DDumper.pm
@@ -6,7 +6,7 @@ use warnings;
 use DynaLoader ();
 
 use vars qw( $VERSION @ISA @EXPORT );
-$VERSION = "0.15";
+$VERSION = "0.16";
 @ISA     = qw( DynaLoader Exporter );
 @EXPORT  = qw( DDumper DPeek DDump DDual );
 $] >= 5.007003 and push @EXPORT, "DDump_IO";
diff --git a/t/30_DDump-s.t b/t/30_DDump-s.t
index fc8c025..a8c2b73 100644
--- a/t/30_DDump-s.t
+++ b/t/30_DDump-s.t
@@ -43,7 +43,7 @@ foreach my $test (@tests) {
 	# Catch differences in \n
 	$dump =~ s/"ab\Q$nl[0]\E(.*?)"ab\Q$nl[1]\E/"ab\\n$1"ab\\n/;
 
-	$dump =~ s/\bLEN = [1-3]\b/LEN = 4/;
+	$dump =~ s/\bLEN = [1-7]\b/LEN = 8/;	# aligned at long long?
 
 	$dump =~ s/\bPADBUSY\b,?//g	if $] < 5.010;
 
@@ -89,4 +89,4 @@ SV = PVIV(0x****) at 0x****
   IV = 1
   PV = 0x**** ""\0
   CUR = 0
-  LEN = 4
+  LEN = 8
-- 
2.11.4.GIT