GC remnants of pipe support, long gone.

Display an error message for non found packages, in addition to setting
the exit code.

diff --git a/usr.sbin/pkg_add/OpenBSD/PackageRepositoryList.pm b/usr.sbin/pkg_add/OpenBSD/PackageRepositoryList.pm
index 95bd49c..1c84110 100644 (file)
--- a/usr.sbin/pkg_add/OpenBSD/PackageRepositoryList.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PackageRepositoryList.pm
@@ -1,5 +1,5 @@
 # ex:ts=8 sw=4:
-# $OpenBSD: PackageRepositoryList.pm,v 1.33 2023/06/13 09:07:17 espie Exp $
+# $OpenBSD: PackageRepositoryList.pm,v 1.34 2023/06/14 09:59:09 espie Exp $
 #
 # Copyright (c) 2003-2006 Marc Espie <espie@openbsd.org>
 #
@@ -48,9 +48,6 @@ sub prepend($self, @p)
 
 sub do_something($self, $do, $pkgname, @args)
 {
-       if (defined $pkgname && $pkgname eq '-') {
-               return OpenBSD::PackageRepository->pipe->new($self->{state})->$do($pkgname, @args);
-       }
        for my $repo (@{$self->{l}}) {
                my $r = $repo->$do($pkgname, @args);
                return $r if defined $r;

diff --git a/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm b/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm
index f88def3..cf43a0b 100644 (file)
--- a/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 # ex:ts=8 sw=4:
-# $OpenBSD: PkgInfo.pm,v 1.51 2023/06/13 09:07:17 espie Exp $
+# $OpenBSD: PkgInfo.pm,v 1.52 2023/06/14 09:59:09 espie Exp $
 #
 # Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org>
 #
@@ -642,6 +642,7 @@ sub parse_and_run($self, $cmd)
                        $self->print_info($state, $pkgname, $handle);
                })) {
                        $exit_code = 1;
+                       $state->errsay("Can't find #1", $pkg);
                }
        }
        for my $extra (@extra) {