-sub merge_data {
- my ($self, $pkg, $version, $architecture, $data) = @_;
-
- local $/ = "";
- my $strio = IO::String->new($data);
- my $merged = 0;
- while (<$strio>) {
- next if /^\s*$/;
- my %data = ( package => $pkg,
- version => $version,
- architecture => $architecture );
- chomp;
- s/\n /\377/g;
- while (/^(\S+):\s*(.*)\s*$/mg) {
- my ($key, $value) = ($1, $2);
- $value =~ s/\377/\n /g;
- $key =~ tr [A-Z] [a-z];
- $data{$key} = $value;
- }
-# debug( "Merge package:\n".Dumper(\%data), 3 );
- $merged += $self->merge_package( \%data );
- }
- close DATA;
- return $merged;
-}
-
-sub gettext { return $_[0]; }