sub SIG_SIZE () { 1 }
sub STALE_SIZE () { 1 }
-################################################################################
-
# Please refer to the pack() documentation for further information
my %StP = (
1 => 'C', # Unsigned char value (no order specified, presumably ASCII)
8 => 'Q', # Usigned quad (no order specified, presumably machine-dependent)
);
+################################################################################
+
sub new {
my $class = shift;
my ($args) = @_;