view release on metacpan or  search on metacpan

bin/zipdetails  view on Meta::CPAN

    }

    if ($available < 1)
    {
        error $FH->tell(),
                    extraFieldIdentifier($extraID) . ": truncated reading 'GID Size'",
                    expectedMessage($uidSize, $available);
        return ;
    }

    my $gidSize = out_C "  GID Size";
    $available -= 1 ;
    if ($gidSize)
    {
        if ($available < $gidSize)
        {
            outSomeData($available, "  Bad Extra Data");
            error $FH->tell() - $available,
                        extraFieldIdentifier($extraID) . ": truncated reading 'GID'",
                        expectedMessage($gidSize, $available);
            return;
        }

        myRead(my $data, $gidSize);
        if (canDecodeLittleEndian($gidSize))
        {
            out2 $data, "GID", decodeLittleEndian($data);
        }
        else
        {
            out2 $data, "GID", "Invalid GID Value: " .hexDump($data);
            info $FH->tell() - $gidSize, extraFieldIdentifier($extraID) . ":  GID value is not a valid value"
        }
        $available -= $gidSize ;
    }
    else
    {
        info $FH->tell() - 1, extraFieldIdentifier($extraID) . ": 'GID Size' should not be zero"
    }

}

sub decode_Java_exe
{