/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | fields.pm | 90 for my $pkg (sort keys %attr) { 91 print "\n$pkg"; 92 if (@{"$pkg\::ISA"}) { 93 print " (", join(", ", @{"$pkg\::ISA"}), ")"; 96 my $fields = \%{"$pkg\::FIELDS"}; 100 my $fattr = $attr{$pkg}[$no];
|
H A D | Exporter.pm | 30 my $pkg = shift; 33 if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { 38 # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-( 39 my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); 40 return export $pkg, $callpkg, @_ 42 my $export_cache = ($Cache{$pkg} ||= {}); 48 foreach (@$exports, @{"$pkg\::EXPORT_OK"}); 61 return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 65 *{"$callpkg\::$_"} = \&{"$pkg\ [all...] |
H A D | constant.pm | 49 my $pkg = caller; 56 } elsif ($forced_into_main{$name} and $pkg ne 'main') { 100 my $full_name = "${pkg}::$name"; 297 my $pkg = caller; 298 my $full_name = $name =~ /::/ ? $name : "${pkg}::$name";
|
H A D | sigtrap.pm | 15 my $pkg = shift;
|
H A D | Test.pm | 341 my ($pkg,$file,$line) = caller($TestLevel); 385 my $detail = { 'repetition' => $repetition, 'package' => $pkg,
|
H A D | Switch.pm | 28 my $pkg = caller; 32 *{"${pkg}::$_"} = \&$_; 34 *{"${pkg}::__"} = \&__ if grep /__/, @_;
|
/osnet-11/usr/src/lib/brand/solaris10/zone/ |
H A D | common.ksh | 86 # Files from SUNWcsr and SUNWcsu that are in sparse inherit-pkg-dirs. 130 for i in $dir/var/sadm/pkg/SUNWcakr* 139 # Check the core kernel pkg for the required KU patch. 142 for i in $dir/var/sadm/pkg/SUNWcakr*/pkginfo
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/Scalar/ |
H A D | Util.pm | 69 my $pkg = ref($_[0]) or return undef; 72 bless $_[0], $pkg;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | Array.pm | 76 my $pkg = ref $_[0]; 77 croak "$pkg doesn't define an EXISTS method"; 81 my $pkg = ref $_[0]; 82 croak "$pkg doesn't define a DELETE method";
|
/osnet-11/usr/src/lib/gss_mechs/mech_krb5/ |
H A D | Makefile | 98 cd pkg ; pwd ; $(MAKE) install
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | utf8.c | 1562 Perl_swash_init(pTHX_ char* pkg, char* name, SV *listsv, I32 minbits, I32 none) argument 1567 HV *stash = gv_stashpvn(pkg, strlen(pkg), FALSE); 1573 Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpv(pkg,0), Nullsv); 1583 PUSHs(sv_2mortal(newSVpvn(pkg, strlen(pkg))));
|
H A D | configpm | 75 my $pkg = shift;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | DosGlob.pm | 409 my $pkg = shift; 413 *{$callpkg.'::'.$sym} = \&{$pkg.'::'.$sym} if $sym eq 'glob';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
H A D | FTP.pm | 52 my $pkg = shift; 78 my $ftp = $pkg->SUPER::new(PeerAddr => $peer, 932 my $pkg = "Net::FTP::" . $ftp->type; 934 eval "require " . $pkg; 936 $pkg =~ s/ /_/g; 944 $data = $pkg->new(PeerAddr => join(".",@port[0..3]), 952 $data = ${*$ftp}{'net_ftp_listen'}->accept($pkg);
|
H A D | Netrc.pm | 135 my($pkg,$mach,$login) = @_;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | Mksymlists.pm | 283 DL_FUNCS => { $pkg => [] } });
|
H A D | MM_VMS.pm | 1881 my $pkg = $1; 1882 $pkg =~ s#__*#::#g; 1883 push @staticpkgs,$pkg;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
H A D | Carp.pm | 356 my $pkg = shift; 371 Exporter::import($pkg,keys %routines); 374 # $pkg->export('CORE::GLOBAL','die');
|
/osnet-11/usr/src/lib/brand/shared/zone/ |
H A D | dsconvert.ksh | 280 "${zone.name}" pkg:/system/zones/brand/solaris "${zone.brand}"
|
/osnet-11/usr/src/lib/pylibbe/common/ |
H A D | libbe.py | 35 import pkg.pkgsubprocess as subprocess namespace 538 cmd = "/usr/bin/pkg -R %s list -Hv " % mountpoint 546 # "be_get_pkg_version: Error invoking pkg(1M) to get " 554 # "be_get_pkg_version: error parsing pkg(1M) output to "
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/ |
H A D | PPPort.pm | 179 my $pkg = __PACKAGE__; 182 $data =~ s/__PKG__/$pkg/g;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
H A D | Long.pm | 112 my $pkg = shift; # package 126 $pkg->SUPER::import(@syms); 252 my $pkg = $caller || (caller)[0]; # current context 268 "called from package \"$pkg\".", 401 print STDERR ("=> link \"$orig\" to \@$pkg","::opt_$ov\n") 403 eval ("\$linkage{\$orig} = \\\@".$pkg."::opt_$ov;"); 406 print STDERR ("=> link \"$orig\" to \%$pkg","::opt_$ov\n") 408 eval ("\$linkage{\$orig} = \\\%".$pkg."::opt_$ov;"); 411 print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n") 413 eval ("\$linkage{\$orig} = \\\$".$pkg [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | More.pm | 41 my $pkg = shift; 45 $pkg->export($callpkg, @_);
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/config/5.8.4/5.11/i386/ |
H A D | Config.pm | 12 my $pkg = shift;
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/config/5.8.4/5.11/sparc/ |
H A D | Config.pm | 12 my $pkg = shift;
|