Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
pmqs committed Apr 12, 2022
1 parent 42e028f commit 3fe7b87
Showing 1 changed file with 12 additions and 2 deletions.
14 changes: 12 additions & 2 deletions bin/zipdetails
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,15 @@

use 5.010; # for unpack "Q<"

BEGIN {
# Check for a 32-bit Perl
if (!eval { pack "Q", 1 }) {
warn "zipdetails requires 64 bit integers, ",
"this Perl has 32 bit integers.\n";
exit(1);
}
}

BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings ;
Expand All @@ -17,6 +26,8 @@ use IO::File;
use Encode;
use Getopt::Long;

my $VERSION = "2.104" ;

use constant MAX32 => 0xFFFFFFFF ;

# Compression types
Expand Down Expand Up @@ -194,7 +205,6 @@ my %Extras = (

);

my $VERSION = "2.100" ;

my $FH;

Expand Down Expand Up @@ -2281,7 +2291,7 @@ sub nibbles
duplicates => [],
detail => [],
duplicate_count => 0,
operlap_count => 0,
overlap_count => 0,
) ;

bless \%object, $class;
Expand Down

0 comments on commit 3fe7b87

Please sign in to comment.