- my ($self, $pkg, $version, $data) = @_;
-
- my %data = ( package => $pkg,
- version => $version,
- );
- chomp($data);
- $data =~ s/\n\s+/\377/g;
- while ($data =~ /^(\S+):\s*(.*)\s*$/mg) {
- my ($key, $value) = ($1, $2);
- $key =~ tr [A-Z] [a-z];
- $data{$key} = $value;
- }
-# debug( "Merge package:\n".Dumper(\%data), 3 );
+ my ($self, $pkg, $suite, $archive, $data) = @_;
+
+ my %data = split /\00/o, $data;
+ $data{package} = $pkg;
+ $data{suite} = $suite;
+ $data{archive} = $archive;
+