diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2012-04-16 10:32:06 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2012-04-16 10:32:06 +0000 |
commit | 88c205a33af3e9431d6efda5086e429224f99ee2 (patch) | |
tree | 606d500875b92d59b7be95b93131cee2c0582c28 | |
parent | ba2ceace26fd5b554161d38fb2cf04d298e98602 (diff) |
display truely unknown stuff first
-rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PkgCheck.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm b/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm index 2a875a4b480..861f2bb1baf 100644 --- a/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm +++ b/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm @@ -1,7 +1,7 @@ #! /usr/bin/perl # ex:ts=8 sw=4: -# $OpenBSD: PkgCheck.pm,v 1.34 2012/04/16 10:29:53 espie Exp $ +# $OpenBSD: PkgCheck.pm,v 1.35 2012/04/16 10:32:05 espie Exp $ # # Copyright (c) 2003-2010 Marc Espie <espie@openbsd.org> # @@ -484,16 +484,18 @@ sub result my $r = $self->{result}; my $u = $r->{unknown}; delete $r->{unknown}; + + $state->say("Not found:"); + for my $e (sort @$u) { + $state->say("\t#1", $e); + } + for my $k (sort keys %{$r}) { $state->say("In #1:", $k); for my $e (sort @{$r->{$k}}) { $state->say("\t#1", $e); } } - $state->say("Not found:"); - for my $e (sort @$u) { - $state->say("\t#1", $e); - } } package OpenBSD::PkgCheck; |