RZ

01: # RZMagic.pl # just the file recognition magic
02:
03: use strict;
04:
05: package RZMagic; 
06:
07: our $magic =
08:     pack( "C", 159 )."rgz".13.10.26.10."zlib".0.0.4.0.
09:     pack( "N4",
10:         555777555, # checksum bits  0-31
11:         777222777, # checksum bits 32-63
12:         999555999, # checksum bits 64-95
13:         1<<16,    # blocksize 8192 bytes
14:     );
15:
16: sub printmagic {
17:     return unless $_[0];
18:     print STDERR "  Version rgz: ";
19:     {
20:         local( $, ) = ".";
21:         print STDERR unpack( "U16", $magic );
22:     }
23:     print STDERR "\n";
24: }
25:
26: # RZMagic.pl # just the file recognition magic
27:
28: 1;