summaryrefslogtreecommitdiff
path: root/extractbuild
diff options
context:
space:
mode:
Diffstat (limited to 'extractbuild')
-rwxr-xr-xextractbuild14
1 files changed, 7 insertions, 7 deletions
diff --git a/extractbuild b/extractbuild
index 5b5da86..6996b0a 100755
--- a/extractbuild
+++ b/extractbuild
@@ -77,19 +77,19 @@ while(<S>) {
while($block <= $end && $filesize) {
my $size;
if($end == $block) {
- $size = $blksize;
- ++$block;
+ $size = $blksize;
+ ++$block;
} elsif($maxblocks >= $end-$block) {
- $size = ($end-$block)*$blksize;
- $block += $end-$block;
+ $size = ($end-$block)*$blksize;
+ $block += $end-$block;
} else {
- $size = $maxblocks*$blksize;
- $block += $maxblocks;
+ $size = $maxblocks*$blksize;
+ $block += $maxblocks;
}
$size = $filesize if $size > $filesize;
my $buf;
if((sysread(F, $buf, $size) || 0) != $size) {
- die "$file: read: $!\n";
+ die "$file: read: $!\n";
}
$filesize -= $size;
print O $buf;