Fail on Perls without unpack Q

diff --git a/Makefile.PL b/Makefile.PL
index 2c380c020ec061e96309ef1dfa9852180df9fc85..e336e8e68bfcfefb258314137618acfc6d94c447 100644 (file)
--- 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',