X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F00info.t;h=e25d78b19a38f8fa6be8e36a05911c8e8a91ff8c;hb=569e5f292f0a6cd954c8da5ce3f389d8dd8485ce;hp=afe80ba7c278bb7b2bc3c9dd7b067d1caea90778;hpb=6be43b56903a0705ba07fedc829b88e55cf96d92;p=p5sagit%2FDevel-PeekPoke.git

diff --git a/t/00info.t b/t/00info.t
index afe80ba..e25d78b 100644
--- a/t/00info.t
+++ b/t/00info.t
@@ -3,9 +3,21 @@ use warnings;
 
 use Test::More;
 use Devel::PeekPoke::Constants qw/PTR_SIZE PTR_PACK_TYPE BIG_ENDIAN/;
+use Config;
 
 diag("\nPerl: $]\n");
-diag(sprintf "%s: %s\n", $_, __PACKAGE__->$_ ) for (qw/BIG_ENDIAN PTR_SIZE PTR_PACK_TYPE/);
+diag(sprintf "%s: %s\n", $_, __PACKAGE__->$_ ) for (qw/BIG_ENDIAN PTR_PACK_TYPE PTR_SIZE/);
+diag("IV_SIZE: $Config{ivsize}\n");
+
+if (
+  PTR_SIZE != $Config{ivsize}
+    and
+  eval { require Devel::PeekPoke::PP }
+    and
+  defined (my $offset = eval { Devel::PeekPoke::PP::_XPV_IN_SVU_OFFSET() })
+) {
+  diag "Pointer offset within an IV_SIZEd UNION: $offset\n"
+}
 
 ok('this is not a test, it just serves to diag() out what this system is using, for the curious (me)');
 done_testing;