/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/ |
H A D | sigaction.t | 34 sub foo { subroutine 38 my $newaction=POSIX::SigAction->new('::foo', new POSIX::SigSet(SIGUSR1), 0); 51 print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n"; 54 if($oldaction->{HANDLER} eq '::foo') 87 sigaction(SIGHUP, POSIX::SigAction->new('::foo')); 90 my $act=POSIX::SigAction->new('::foo'); 145 sigaction("FOOBAR", $newaction); 163 $SIG{HUP} = \&foo; 169 sigaction(SIGHUP, POSIX::SigAction->new(\&foo)); 174 $newaction = POSIX::SigAction->new(\&foo); [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/encoding/ |
H A D | encoding.pm | 26 open($f, "<:encoding(foo)", "infoo");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
H A D | PerlIO.t | 29 print $txtfh "foo\n"; 34 print $binfh "foo\n"; 39 print $utffh "foo\x{ff}\n"; 51 is(scalar <$txtfh>, "foo\n"); 54 is(scalar <$binfh>, "foo\n"); 57 is(scalar <$utffh>, "foo\x{ff}\n");
|
H A D | scalar.t | 29 $var = "foo\nbar\n"; 33 print "not " unless <$fh> eq "foo\n"; 96 $var = "foo"; 99 print "# Got [$var], expect [foo]\n"; 100 print "not " unless $var eq "foo"; 137 print $fh "foo";
|
H A D | via.t | 77 sub Foo::PUSHED { $obj = shift; -1; } subroutine 79 open $fh, '<:via(Foo)', "foo"; 80 is( $obj, 'Foo', 'search for package Foo' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/via/ |
H A D | via.pm | 237 open(my $fh, ">:via(Hex)", "foo.hex"); 242 open(my $fh, "<:via(Hex)", "foo.hex");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/SDBM_File/t/ |
H A D | sdbm.t | 119 $h{'foo'} = ''; 133 my @foo = @h{0..200}; 134 print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n"; 136 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n"); 215 ok(20, exists $h{'foo'});
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safe1.t | 37 $foo = 42; 39 $cpt->share(qw($foo)); 41 print ${$cpt->varglob('foo')} == 42 ? "ok $t\n" : "not ok $t\n"; $t++; 43 ${$cpt->varglob('foo')} = 9; 45 print $foo == 9 ? "ok $t\n" : "not ok $t\n"; $t++; 47 print $cpt->reval('$foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++; 49 print $cpt->reval('$::foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++; 50 print $cpt->reval('$main::foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++; 52 print $cpt->reval('$test::foo') ? "not ok $t\n" : "ok $t\n"; $t++; 53 print $cpt->reval('${"test::foo"}') [all...] |
H A D | safe2.t | 25 $Root::foo = "visible"; 29 $Root::foo .= ""; 49 print $foo eq 'visible' ? "ok 2\n" : "not ok 2\n"; 50 print $main::foo eq 'visible' ? "ok 3\n" : "not ok 3\n"; 57 $foo = "ok 8\n"; 65 $cpt->share(qw($foo %bar @baz *glob sayok)); 72 print $foo ? $foo : "not ok 8\n"; 77 $foo =~ s/8/14/; 83 print $foo, [all...] |
H A D | safeops.t | 82 pushre SKIP split /foo/ 88 prototype prototype 'foo' 100 match /foo/ 101 qr qr/foo/ 102 subst s/foo/bar/ 107 chop chop @foo 109 chomp chomp @foo 184 sprintf sprintf '%s', 'foo' 188 crypt crypt 'foo','bar' 208 split split /foo/ [all...] |
H A D | safesort.t | 20 is_deeply [ $func->("foo") ], [ "foo" ];
|
H A D | safeuniversal.t | 26 (bless[],"Foo")->isa("Foo"); 30 is( (bless[],"Foo")->isa("Foo"), 1, "... but not outside" ); 32 sub Foo::foo {} 36 (bless[],"Foo")->can("foo"); 40 is( (bless[],"Foo")->can("foo"), \ [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.pm | 193 logcroak "wrong argument number" unless @_ == 2; # No @foo in arglist 246 logcroak "too many arguments" unless @_ == 1; # No @foo in arglist 283 logcroak "too many arguments" unless @_ == 0; # No @foo in arglist
|
H A D | Storable.xs | 2793 * tie %h, 'FOO'; 4222 * tie %h, 'FOO';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | blessed.t | 111 my $blessed_ref = bless \\[1,2,3], 'Foobar'; 114 ok 11, ref $y eq 'Foobar';
|
H A D | code.t | 51 { package Another::Package; sub foo { __PACKAGE__ } } 58 local *FOO; 64 \&Another::Package::foo, # code in another package 78 sub { open FOO, "/" }, 231 my $bad_code = ';open FOO, "/badfile"';
|
H A D | dclone.t | 49 package FOO; @ISA = qw(Storable); package 59 $foo = FOO->make; 60 print "not " unless defined($r = $foo->dclone); 63 print "not " unless &dump($foo) eq &dump($r);
|
H A D | forgive.t | 41 my $bad = ['foo', \*GLOB, 'bar']; 65 print (($ret->[0] eq 'foo')?"ok $test\n":"not ok $test\n"); $test++;
|
H A D | freeze.t | 57 package FOO; @ISA = qw(Storable); package 67 $foo = FOO->make; 68 print "not " unless $f2 = $foo->freeze; 71 print "not " unless $f3 = $foo->nfreeze; 78 print "not " unless &dump($foo) eq &dump($root3); 82 print "not " unless &dump($foo) eq &dump($root); 110 sub foo { $_[0] = 1 } subroutine 111 $foo = []; 112 foo( [all...] |
H A D | recurse.t | 191 package Foo; package 205 Foo->new(1), 206 Foo->new(2), # Second instance of a Foo 228 ok 25, ref($bar->{b}[0]) eq 'Foo'; 229 ok 26, ref($bar->{b}[1]) eq 'Foo'; 230 ok 27, ref($bar2->{b}[0]) eq 'Foo'; 231 ok 28, ref($bar2->{b}[1]) eq 'Foo'; 285 package Foo2; package 298 package Foo3; package [all...] |
H A D | store.t | 54 package FOO; @ISA = qw(Storable); package 64 $foo = FOO->make; 65 print "not " unless $foo->store('store'); 74 print "not " unless defined nstore_fd($foo, ::OUT); 88 print "not " unless &dump($foo) eq &dump($r); 100 print "not " unless &dump($foo) eq &dump($r);
|
H A D | tied.t | 134 #$scalar = 'foo'; 144 $scalar = 'foo';
|
H A D | tied_hook.t | 158 $scalar = 'foo'; 204 ok 16, $$tscalar eq 'foo'; 217 my $bc = bless \%hash, 'FOO'; # FOO does not exist -> no hook 220 ok 22, ref $bx eq 'FOO';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/ |
H A D | Syslog.pm | 1171 syslog('notice', 'fooprogram: this is really done');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/ |
H A D | Makefile.PL | 188 static int foo() 195 foo();
|