We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents dbd3160 + f3a0a47 commit ad987abCopy full SHA for ad987ab
bin/zipdetails
@@ -1590,9 +1590,6 @@ sub scanCentralDirectory
1590
my $comment_length = unpack("v", substr($buffer, 32, 2));
1591
my $locHeaderOffset = unpack("V", substr($buffer, 42, 4));
1592
1593
- $START = $locHeaderOffset
1594
- if ! defined $START;
1595
-
1596
skip($fh, $filename_length ) ;
1597
1598
if ($extra_length)
@@ -1655,6 +1652,11 @@ sub scanCentralDirectory
1655
1652
1656
1653
# @CD = sort { $a->[0]->cmp($b->[0]) } @CD ;
1657
1654
@CD = sort { $a->[0] <=> $b->[0] } @CD ;
+
+ # Set the first LFH offset.
+ $START = $CD[0]->[0]
1658
+ if $#CD > 0;
1659
1660
return (1, @CD);
1661
}
1662
0 commit comments