-sub merge_data {
- my ($self, $pkg, $version, $architecture, $data) = @_;
-
- my %data = ( package => $pkg,
- version => $version,
- architecture => $architecture );
- chomp($data);
- 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 );
- return $self->merge_package( \%data );
-}
-