1 files changed, 1 insertions, 1 deletions

diff --git a/lib.php b/lib.php
index d04ca45..258710d 100644
--- a/lib.php
+++ b/lib.php
@@ -66,7 +66,7 @@ function get_refined_packages_list($list_of_files, $package = null, $user = null
         if (!is_null($user) && $user != $val[7]) {
             continue;
         }
-        $key = $val[6] . $val[7];
+        $key = $val[6] . $val[7] . $val[9];
         if (!array_key_exists($key, $pkgs)) {
 
             $pkgs[$key] = array(

path: root/perl-install/resize_fat/info_sector.pm

package resize_fat::info_sector; # $Id$

use diagnostics;
use strict;

use common;
use resize_fat::io;

#- Oops, this will be unresizable on big-endian machine. trapped by signature.
my $format = "a484 I I I a16";
my @fields = (
    'unused',
    'signature',		#- should be 0x61417272
    'free_clusters',		#- -1 for unknown
    'next_cluster',		#- most recently allocated cluster
    'unused2',
);

1;


sub read($) {
    my ($fs) = @_;
    my $info = resize_fat::io::read($fs, $fs->{info_offset}, psizeof($format));
    @{$fs->{info_sector}}{@fields} = unpack $format, $info;
    $fs->{info_sector}{signature} == 0x61417272 or die "Invalid information sector signature\n";
}

sub write($) {
    my ($fs) = @_;
    $fs->{info_sector}{free_clusters} = $fs->{clusters}{count}{free};
    $fs->{info_sector}{next_cluster} = 2;

    my $info = pack $format, @{$fs->{info_sector}}{@fields};

    resize_fat::io::write($fs, $fs->{info_offset}, psizeof($format), $info);
}