/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
H A D | Cmd.pm | 67 my $pkg = shift; 68 my $cmd = $pkg; 70 $debug{$pkg} ||= 0; 73 my @do = ($pkg); 74 my %spc = ( $pkg , ""); 76 while ($pkg = shift @do) 78 next if defined $done{$pkg}; 80 $done{$pkg} = 1; 82 my $v = defined ${"${pkg}::VERSION"} 83 ? "(" . ${"${pkg} [all...] |
/osnet-11/usr/src/tools/onbld/Checks/ |
H A D | pkglint.py | 28 # usr/src/pkg/Makefile, with settings in usr/src/pkg/*pkglintrc. 31 import pkg.lint.base as base namespace 53 'pkg verify/fix' errors in the image. 69 "delivered to /var/.migrate by %(pkg)s") % 70 {"path": path, "pkg": manifest.fmri}, 81 " is set in %(pkg)s") % 82 {"path": path, "pkg": manifest.fmri}, 108 "%(pkg)s, reserved for unpackaged content shared " 110 {"path": path, "pkg" [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/ |
H A D | Safe.pm | 182 my $pkg = $obj->root(); 186 $pkg = "main::$pkg\::"; # expand to full symbol table name 187 ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; 193 #warn "erase($pkg) stem=$stem, leaf=$leaf"; 274 my $pkg = shift; 281 croak("Package \"$pkg\" does not exist") 282 unless keys %{"$pkg\::"}; 288 # warn "share_from $pkg $type $var"; 290 *{$root."::$var"} = (!$type) ? \&{$pkg [all...] |
/osnet-11/usr/src/lib/libpkg/common/ |
H A D | dstream.c | 59 extern int pkgnmchk(register char *pkg, register char *spec, 88 char pkg[NON_ABI_NAMELNGTH]; member in struct:dstoc 138 if (strcmp(list[j], toc_pt->pkg) == 0) { 304 ds_init(char *device, char **pkg, char *norewind) argument 462 if (sscanf(line, "%s %d %d %[ 0-9]", toc_pt->pkg, 499 for (i = 0; pkg[i]; i++) { 500 if (strcmp(pkg[i], "all") == 0) 506 strlcat(cmd, pkg[i], CMDSIZ); 533 ds_findpkg(char *device, char *pkg) argument 539 pkglist[0] = pkg; 564 logerr(pkg_gt(MSG_NOPKG), pkg); local [all...] |
H A D | pkglib.h | 68 #define PKGSERV_MODE "pkg-server-mode=" 405 extern char **gpkglist(char *dir, char **pkg, char **catg); 412 extern char **pkgalias(char *pkg); 430 extern int ds_findpkg(char *device, char *pkg); 435 extern int ds_init(char *device, char **pkg, char *norewind); 463 extern int pkgmount(struct pkgdev *devp, char *pkg, int part, int nparts, 465 extern int pkgtrans(char *device1, char *device2, char **pkg,
|
H A D | putcfile.c | 180 if (fputs(pinfo->pkg, a_fp) == EOF) { 361 vfpPuts(a_vfp, pinfo->pkg);
|
H A D | tputcfent.c | 177 (void) fprintf(fp, "%-15s", pinfo->pkg);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | tied.t | 113 my $pkg = shift; 114 return bless [@_], $pkg;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | FileHandle.pm | 57 for my $pkg (keys %import) { 58 for my $func (@{$import{$pkg}}) { 59 my $c = *{"${pkg}::$func"}{CODE} 60 or die "${pkg}::$func missing"; 70 my $pkg = shift; 73 Exporter::export($pkg, $callpkg, @_);
|
H A D | AutoLoader.pm | 39 my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); 40 $pkg =~ s#::#/#g; 41 if (defined($filename = $INC{"$pkg.pm"})) { 43 $pkg =~ tr#/#:#; 44 $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s; 46 $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s; 120 my $pkg = shift; 127 if ($pkg e [all...] |
H A D | constant.t | 172 my $pkg = caller; 173 my $full_name = $name =~ /::/ ? $name : "${pkg}::$name";
|
/osnet-11/usr/src/lib/libadm/common/ |
H A D | pkgparam.c | 312 pkgparam(char *pkg, char *param) argument 321 if (!pkg) { 338 (void) pkginfofind(line, pkgdir, pkg);
|
/osnet-11/usr/src/lib/brand/solaris/zone/ |
H A D | p2v.ksh | 46 v_change_var=$(gettext "Changing the pkg variant to nonglobal...") 47 e_change_var=$(gettext "Changing the pkg variant to nonglobal failed") 64 PKG=pkg 191 /usr/bin/pkg -R /a uninstall -r $i </dev/null >&2 || \ 236 safe_dir var/pkg 336 # Change the pkg variant from global zone to non-global zone. This assumes 340 # - set the pkg image property use-system-repo=true
|
H A D | image_install.ksh | 223 set -- $(pkg -R "${zone.root}" variant -H variant.opensolaris.zone)
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | Hash.pm | 192 my $pkg = shift; 193 $pkg->TIEHASH(@_); 199 my $pkg = shift; 200 if (defined &{"${pkg}::new"}) { 201 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"); 202 $pkg->new(@_); 205 croak "$pkg doesn't define a TIEHASH method"; 210 my $pkg = ref $_[0]; 211 croak "$pkg does [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/ |
H A D | Handlers.pm | 10 my ($pkg, $ref, $type) = @_; 11 return $symcache{$pkg,$ref} if $symcache{$pkg,$ref}; 14 foreach my $sym ( values %{$pkg."::"} ) { 15 return $symcache{$pkg,$ref} = \$sym 91 my $sym = findsym @lastattr{'pkg','ref'} 92 or die "Internal error: $lastattr{pkg} symbol went missing"; 94 warn "Declaration of $name attribute in package $lastattr{pkg} may clash with future reserved word\n" 97 *{"$lastattr{pkg}::_ATTR_${_}_${name}"} = $lastattr{ref}; 116 my ($pkg, [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.xs | 1028 static int store_blessed(pTHX_ stcxt_t *cxt, SV *sv, int type, HV *pkg); 1575 HV *pkg, 1586 gv = gv_fetchmethod_autoload(pkg, method, FALSE); 1589 TRACEME(("%s->%s: 0x%"UVxf, HvNAME(pkg), method, PTR2UV(sv))); 1592 TRACEME(("%s->%s: not found", HvNAME(pkg), method)); 1600 (void) hv_store(cache, HvNAME(pkg), strlen(HvNAME(pkg)), sv, 0); 1613 HV *pkg, 1617 HvNAME(pkg), strlen(HvNAME(pkg)), newSVs [all...] |
/osnet-11/usr/src/lib/fm/topo/libtopo/common/ |
H A D | topo_builtin.c | 39 #include <pkg.h> 49 { "pkg", PKG_VERSION, pkg_init, pkg_fini },
|
H A D | pkg.c | 46 #include <pkg.h> 63 { "pkg", FM_FMRI_SCHEME_PKG, PKG_VERSION, &pkg_ops }; 70 topo_mod_dprintf(mod, "initializing pkg builtin\n"); 138 /* pkg:// */ 158 /* pkg-name part */
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/ |
H A D | Exacct.xs | 82 define_constants(const char *pkg, constval_t *cvp) 89 stash = gv_stashpv(pkg, TRUE); 90 name = New(0, name, strlen(pkg) + sizeof (CONST_NAME), char); 92 strcpy(name, pkg);
|
H A D | exacct_common.xh | 132 extern void define_constants(const char *pkg, constval_t *dvp);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | cookie.t | 418 my ($self, $pkg) = @_; 419 return $pkg eq 'Apache'; 427 my ($self, $pkg) = @_; 428 return $pkg eq 'Apache2::RequestReq';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
H A D | Socket.pm | 31 my $pkg = shift; 33 Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark'); 166 my $pkg = shift || $sock; 168 my $new = $pkg->new(Timeout => $timeout);
|
/osnet-11/usr/src/lib/fm/topo/libtopo/ |
H A D | Makefile.com | 35 pkg.c \
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/via/ |
H A D | via.xs | 136 char *pkg = SvPV(arg, pkglen); 138 s->stash = gv_stashpvn(pkg, pkglen, FALSE); 141 newSVpvn(Perl_form(aTHX_ "PerlIO::via::%s", pkg), 187 pkg);
|