/openbsd-current/usr.sbin/pkg_add/OpenBSD/ |
H A D | Replace.pm | 46 sub pkg_has_exec($pkg, $new) 49 $pkg->plist->scan_for_exec($new, \$has_exec); 55 for my $pkg ($set->older) { 56 return 0 if pkg_has_exec($pkg, 0); 58 for my $pkg ($set->newer) { 59 return 0 if pkg_has_exec($pkg, 1);
|
H A D | CollisionReport.pm | 26 sub handle_collisions($self, $todo, $pkg, $bypkg) 30 push(@{$bypkg->{$pkg}}, $name); 44 my $pkg = $state->vstat->value($state->{destdir}.$name); 45 if (defined $pkg) { 46 push(@{$bypkg->{$pkg}}, $name); 55 for my $pkg (installed_packages()) { 56 $state->say("Looking for collisions in #1", $pkg) if $verbose; 59 next unless -d installed_info($pkg); 60 my $plist = OpenBSD::PackingList->from_installation($pkg, 63 $plist->handle_collisions($todo, $pkg, [all...] |
H A D | PkgDelete.pm | 95 '[-acimnqsVvXx] [-B pkg-destdir] [-D name[=value]] [pkg-name ...]'); 228 for my $pkg ($set->older) { 229 $set->setup_header($state, $pkg); 230 $state->log->set_context('-'.$pkg->pkgname); 231 OpenBSD::Delete::delete_handle($pkg, $state); 266 for my $pkg ($r->list) { 267 next if $set->{older}{$pkg}; 268 my $f = $state->tracker->find($pkg); 270 $todo->{$pkg} [all...] |
H A D | Tracker.pm | 177 sub is($self, $k, $pkg) 179 my $set = $self->{$k}{$pkg}; 187 sub is_known($self, $pkg) 189 return $self->is('known', $pkg); 192 sub is_installed($self, $pkg) 194 return $self->is('installed', $pkg); 197 sub is_to_update($self, $pkg) 199 return $self->is('to_update', $pkg);
|
H A D | Signer.pm | 54 sub sign($signer, $pkg, $state, $tmp) 57 my $url = $pkg->url; 58 if (!$pkg->{repository}->is_local_file) { 59 $pkg->close(1);
|
H A D | PkgInfo.pm | 176 for my $pkg (sort {$a->name cmp $b->name} @$l) { 177 &$code($pkg->name, $pkg); 178 $pkg->close_now; 179 $pkg->wipe_info; 196 for my $pkg (@$r) { 197 &$code($pkg->name, $pkg); 198 $pkg->close_now; 199 $pkg [all...] |
H A D | PkgSign.pm | 52 '[-o dir] [-S source] [pkg-name...]'); 73 sub sign_existing_package($self, $state, $pkg) 76 my $dest = $output.'/'.$pkg->name.".tgz"; 82 my (undef, $tmp) = OpenBSD::Temp::permanent_file($output, "pkg") or 84 $state->{signer}->sign($pkg, $state, $tmp); 95 OpenBSD::Paths->sha256, '-b', $pkg->name.".tgz"); 104 my $pkg = $repo->find($name); 105 if (!defined $pkg) { 108 $self->sign_existing_package($state, $pkg);
|
H A D | RequiredBy.pm | 101 for my $pkg (@pkgnames) { 102 delete $self->{entries}->{$pkg}; 110 for my $pkg (@pkgnames) { 111 $self->{entries}->{$pkg} = 1;
|
/openbsd-current/gnu/usr.bin/perl/t/opbasic/ |
H A D | concat.t | 261 our $pkg; 296 $pkg = "-"; 297 is($pkg, '-', '$pkg = "-"'); 298 $pkg = "-"; 299 is($pkg, '-', '$pkg = "-"'); 300 $pkg = "-"; 301 is($pkg, '-', '$pkg [all...] |
/openbsd-current/usr.bin/pkg-config/ |
H A D | Makefile | 3 MAN=pkg-config.1 13 ${.CURDIR}/pkg-config ${DESTDIR}${BINDIR}/pkg-config
|
H A D | pkg-config | 2 # $OpenBSD: pkg-config,v 1.97 2023/09/22 07:28:31 espie Exp $ 153 # XXX pkg-config is a bit weird 222 for my $pkg (@$top_config) { 223 do_modversion($pkg); 228 for my $pkg (@$top_config) { 229 print_requires($pkg); 235 for my $pkg (@$top_config) { 236 $rc = 1 unless versionmatch($configs{$pkg}, '>=', $v); 243 for my $pkg (@$top_config) { 244 $rc = 1 unless versionmatch($configs{$pkg}, ' [all...] |
/openbsd-current/gnu/usr.bin/perl/dist/Exporter/lib/Exporter/ |
H A D | Heavy.pm | 29 my ($pkg, $exports, $cache) = @_; 32 my $ok = \@{"${pkg}::EXPORT_OK"}; 65 my($pkg, $callpkg, @imports) = @_; 67 my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, 68 $Exporter::Cache{$pkg} ||= {}); 72 _rebuild_cache ($pkg, $exports, $export_cache); 77 my $tagsref = \%{"${pkg}::EXPORT_TAGS"}; 94 warn qq["$spec" is not defined in %${pkg}::EXPORT_TAGS]; 125 $pkg->VERSION($sym); # inherit from UNIVERSAL 144 _rebuild_cache ($pkg, [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/Tester/ |
H A D | Delegate.pm | 14 my $pkg = shift; 17 my $self = bless {}, $pkg;
|
H A D | CaptureRunner.pm | 14 my $pkg = shift; 15 my $self = bless {}, $pkg;
|
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/ |
H A D | harness-subclass.t | 30 my $pkg = shift; 31 $loaded{$pkg} = 1; 34 return $base_class->can('new')->( $pkg, @_ );
|
/openbsd-current/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/ |
H A D | headwithmarkup.pl | 18 =head2 backup I<pkg> B<please> dest
|
/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | Symbol.pm | 34 $ref = qualify_to_ref $name, $pkg; 121 my $pkg; 126 $pkg = "main"; 129 $pkg = (@_ > 1) ? $_[1] : caller; 131 $name = $pkg . "::" . $name; 145 my $pkg = shift; 149 unless ($pkg =~ /^main::.*::$/) { 150 $pkg = "main$pkg" if $pkg [all...] |
/openbsd-current/gnu/usr.bin/perl/ |
H A D | vxs.inc | 95 HV *pkg; 111 pkg = SvSTASH(sv); 114 pkg = gv_stashsv(sv, FALSE); 117 gvp = pkg ? (GV**)hv_fetchs(pkg,"VERSION",FALSE) : (GV**)NULL; 134 if (pkg) { 135 const HVNAME* const name = HvNAME_HEK(pkg); 170 "this is only version %" SVf, HEKfARG(HvNAME_HEK(pkg)),
|
/openbsd-current/gnu/usr.bin/perl/t/class/ |
H A D | destruct.t | 16 sub new { my $pkg = shift; bless [ @_ ], $pkg }
|
/openbsd-current/gnu/usr.bin/perl/cpan/libnet/t/ |
H A D | config.t | 29 my $pkg = caller(); 31 *{ $pkg . '::inet_aton' } = \&inet_aton; 32 *{ $pkg . '::inet_ntoa' } = \&inet_ntoa;
|
/openbsd-current/gnu/usr.bin/perl/cpan/Memoize/t/lib/ |
H A D | DBMTest.pm | 88 my $pkg = caller; 90 *{$pkg.'::'.$_} = \&$_ for qw(test_dbm cleanup); 91 *{$pkg.'::file'} = \$basename;
|
/openbsd-current/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/ |
H A D | Constant.pm | 104 my $pkg = shift; 105 return unless defined $pkg; # some joker might use '0' as a pkg... 109 my $stash = $pkg . '::'; 114 my $sub = $pkg->can( $name );
|
/openbsd-current/gnu/usr.bin/perl/dist/Storable/t/ |
H A D | flags.t | 13 my $pkg = shift; 14 return bless { a => 1, b => 2 }, $pkg; 20 my $pkg = shift; 21 return bless { a => 1, b => 2 }, $pkg;
|
/openbsd-current/gnu/usr.bin/perl/lib/Tie/ |
H A D | Handle.pm | 127 my $pkg = shift; 128 $pkg->TIEHANDLE(@_); 134 my $pkg = shift; 135 if (defined &{"{$pkg}::new"}) { 136 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing"); 137 $pkg->new(@_); 140 croak "$pkg doesn't define a TIEHANDLE method"; 169 my $pkg = ref $_[0]; 170 croak "$pkg does [all...] |
H A D | Scalar.pm | 100 my $pkg = shift; 101 $pkg->TIESCALAR(@_); 107 my $pkg = shift; 108 my $pkg_new = $pkg -> can ('new'); 110 if ($pkg_new and $pkg ne __PACKAGE__) { 116 croak "$pkg must define either a TIESCALAR() or a new() method"; 119 warnings::warnif ("WARNING: calling ${pkg}->new since " . 120 "${pkg}->TIESCALAR is missing"); 121 $pkg -> new (@_); 124 croak "$pkg does [all...] |