From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 9 Dec 2017 15:53:49 +0000 (+0200)
Subject: Fail on Perls without unpack Q
X-Git-Tag: 0.001~4
X-Git-Url: http://git.ieval.ro/?p=slob.git;a=commitdiff_plain;h=29d65ef5696fb186409f1e1ca812013b131112d5

Fail on Perls without unpack Q
---

diff --git a/Makefile.PL b/Makefile.PL
index 2c380c0..e336e8e 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,6 +1,10 @@
 use 5.014000;
 use ExtUtils::MakeMaker;
 
+my $packed_nr = "\x00\x00\x00\x00\x00\xBC\x61\x4E";
+my $unpacked_nr = eval { unpack 'Q>', $packed_nr };
+$unpacked_nr == 12345678 || die "Failed to unpack quad, this Perl does not support 64-bit integers. Bailing out. Error '$!'\n";
+
 WriteMakefile(
 	NAME              => 'Slob',
 	VERSION_FROM      => 'lib/Slob.pm',