X-Git-Url: http://git.ieval.ro/?p=slob.git;a=blobdiff_plain;f=Makefile.PL;fp=Makefile.PL;h=e336e8e68bfcfefb258314137618acfc6d94c447;hp=2c380c020ec061e96309ef1dfa9852180df9fc85;hb=29d65ef5696fb186409f1e1ca812013b131112d5;hpb=d3779104ff18ac718524de579f1d5247c30cc48a

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',