From 144cb3e43960c2377c82e9c6522afbe38dc6d369 Mon Sep 17 00:00:00 2001
From: grant <grant@NetBSD.org>
Date: Sat, 10 Apr 2004 08:58:02 +0000
Subject: [PATCH] recognize data files created by Perl Storable module, from
 the output of Storable::show_file_magic().

---
 dist/file/magic/magdir/perl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/dist/file/magic/magdir/perl b/dist/file/magic/magdir/perl
index f70b8dccb854..417220e80a31 100644
--- a/dist/file/magic/magdir/perl
+++ b/dist/file/magic/magdir/perl
@@ -17,3 +17,17 @@
 # XXX: christos matches
 #0	regex		package		Perl5 module source text (via regex)
 0	string		package		Perl5 module source text
+
+# Perl Storable data files.
+0	string	perl-store	perl Storable(v0.6) data
+>4	byte	>0	(net-order %d)
+>>4	byte	&01	(network-ordered)
+>>4	byte	=3	(major 1)
+>>4	byte	=2	(major 1)
+
+0	string	pst0	perl Storable(v0.7) data
+>4	byte	>0
+>>4	byte	&01	(network-ordered)
+>>4	byte	=5	(major 2)
+>>4	byte	=4	(major 2)
+>>5	byte	>0	(minor %d)