]> granicus.if.org Git - file/commitdiff
add perl hash magic
authorChristos Zoulas <christos@zoulas.com>
Mon, 28 Apr 2014 12:04:35 +0000 (12:04 +0000)
committerChristos Zoulas <christos@zoulas.com>
Mon, 28 Apr 2014 12:04:35 +0000 (12:04 +0000)
magic/Magdir/perl

index 928d21c10ce1da713eba9a7f264136bd527b7232..c0bec961e504d10f6cd02bf6ed915ad0a3e4ee7d 100644 (file)
@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# $File: perl,v 1.20 2012/06/21 01:16:49 christos Exp $
+# $File: perl,v 1.21 2013/12/08 23:33:18 christos Exp $
 # perl:  file(1) magic for Larry Wall's perl language.
 #
 # The `eval' lines recognizes an outrageously clever hack.
 >>4    byte    =5      (major 2)
 >>4    byte    =4      (major 2)
 >>5    byte    >0      (minor %d)
+
+# This is Debian #742949 by Zefram <zefram@fysh.org>:
+# -----------------------------------------------------------
+# The Perl module Hash::SharedMem
+# <https://metacpan.org/release/Hash-SharedMem> defines a file format
+# for a key/value store.  Details of the file format are in the "DESIGN"
+# file in the module distribution.  Magic:
+0      bequad  =0xa58afd185cbf5af7     Hash::SharedMem master file, big-endian
+>8     bequad  <0x1000000
+>>15   byte    >2      \b, line size 2^%d byte
+>>14   byte    >2      \b, page size 2^%d byte
+>>13   byte    &1
+>>>13  byte    >1      \b, max fanout %d
+0      lequad  =0xa58afd185cbf5af7     Hash::SharedMem master file, little-endian
+>8     lequad  <0x1000000
+>>8    byte    >2      \b, line size 2^%d byte
+>>9    byte    >2      \b, page size 2^%d byte
+>>10   byte    &1
+>>>10  byte    >1      \b, max fanout %d
+0      bequad  =0xc693dac5ed5e47c2     Hash::SharedMem data file, big-endian
+>8     bequad  <0x1000000
+>>15   byte    >2      \b, line size 2^%d byte
+>>14   byte    >2      \b, page size 2^%d byte
+>>13   byte    &1
+>>>13  byte    >1      \b, max fanout %d
+0      lequad  =0xc693dac5ed5e47c2     Hash::SharedMem data file, little-endian
+>8     lequad  <0x1000000
+>>8    byte    >2      \b, line size 2^%d byte
+>>9    byte    >2      \b, page size 2^%d byte
+>>10   byte    &1
+>>>10  byte    >1      \b, max fanout %d