source: for-distributions/trunk/bin/windows/perl/lib/auto/Storable/show_file_magic.al@ 14489

# NOTE: Derived from ..\..\lib\Storable.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Storable;

#line 94 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\show_file_magic.al)"
sub show_file_magic {
    print <<EOM;
#
# To recognize the data files of the Perl module Storable,
# the following lines need to be added to the local magic(5) file,
# usually either /usr/share/misc/magic or /etc/magic.
#
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)
EOM
}

# end of Storable::show_file_magic
1;