pkg_add/OpenBSD/PkgInfo.pm

3 # $OpenBSD: PkgInfo.pm,v 1.54 2023/11/25 11:02:23 espie Exp $
21 use OpenBSD::State;
23 package OpenBSD::PackingElement;
39 package OpenBSD::PackingElement::FileBase;
48 package OpenBSD::PackingElement::FileObject;
58 package OpenBSD::PkgInfo::State;
59 our @ISA = qw(OpenBSD::State);
61 use OpenBSD::PackageInfo;
159 package OpenBSD::PkgInfo;
160 use OpenBSD::PackageInfo;
161 use OpenBSD::PackageName;
162 use OpenBSD::Getopt;
163 use OpenBSD::Error;
172 	if (OpenBSD::PackageName::is_stem($pkgname)) {
173 		require OpenBSD::Search;
174 		my $l = $repo->match_locations(OpenBSD::Search::Stem->new($pkgname));
186 		require OpenBSD::Search;
187 		my $s = OpenBSD::Search::PkgSpec->new($pkgname);
249 	require OpenBSD::Search;
251 	my $s = OpenBSD::Search::PkgSpec->new($pat);
264 	require OpenBSD::PackingList;
292 			my $plist = $handle->plist(\&OpenBSD::PackingList::FilesOnly);
302 	require OpenBSD::PackingList;
308 			my $plist = $handle->plist(\&OpenBSD::PackingList::ConflictOnly);
326 		require OpenBSD::PackingList;
331 				OpenBSD::PackingList->from_installation($pkg,
332 				    \&OpenBSD::PackingList::ExtraInfoOnly);
361 		$plist = $handle->plist(\&OpenBSD::PackingList::ExtraInfoOnly);
366 		my $name = OpenBSD::PackageName->new_from_string($plist->pkgname);
412 			require OpenBSD::PackingList;
417 				$plist //= $handle->plist(\&OpenBSD::PackingList::FilesOnly);
459 			require OpenBSD::PackingList;
462 			    \&OpenBSD::PackingList::ExtraInfoOnly);
485 	require OpenBSD::Search;
489 	my $partial = OpenBSD::Search::PartialStem->new($state->opt('Q'));
511 	my $state = OpenBSD::PkgInfo::State->new($cmd);
547 		require OpenBSD::PkgSpec;
550 		my $s = OpenBSD::PkgSpec->new($pattern);
613 			require OpenBSD::RequiredBy;
614 			@ARGV = grep { OpenBSD::RequiredBy->new($_)->list == 0 } @ARGV;