#!/usr/bin/perl

use strict;
use warnings;

my @unmets;
my $body='';
my $header;
while (<>) {
    if (substr($_,0,1) eq ' ') {
	$body .= $_;
    } else {
	if (defined $header) {
	    push @unmets, {-header => $header, -body => $body};
	}
	$header = $_;
	$body = $_;
    }
}
if (defined $header) {
    push @unmets, {-header => $header, -body => $body};
}

map {print $_->{-body}} sort {$a->{-header} cmp $b->{-header}} @unmets;

__END__
package _UnmetEntry;
use strict;
use warnings;

sub new {
    my $class=shift;
    return bless {@_}, $class;
}

__END__
Package ykpers-debuginfo version 1.17.2-alt2_2@1554887760 has an unmet dep:
 Depends: debug64(libjson-c.so.4)
Package plee-the-bear-debuginfo version 0.7.0-alt1_17@1507797796 has an unmet dep:
 Depends: debug64(libbear_engine.so)
 Depends: debug64(libbear_generic_items.so)
 Depends: debug64(libbear_gui.so)
