Searched full:foo* (Results 501 - 525 of 797) sorted by relevance

<<21222324252627282930>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/
H A Dsigaction.t34 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 Dencoding.pm26 open($f, "<:encoding(foo)", "infoo");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A DPerlIO.t29 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 Dscalar.t29 $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 Dvia.t77 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 Dvia.pm237 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 Dsdbm.t119 $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 Dsafe1.t37 $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 Dsafe2.t25 $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 Dsafeops.t82 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 Dsafesort.t20 is_deeply [ $func->("foo") ], [ "foo" ];
H A Dsafeuniversal.t26 (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 DStorable.pm193 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 DStorable.xs2793 * tie %h, 'FOO';
4222 * tie %h, 'FOO';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dblessed.t111 my $blessed_ref = bless \\[1,2,3], 'Foobar';
114 ok 11, ref $y eq 'Foobar';
H A Dcode.t51 { 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 Ddclone.t49 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 Dforgive.t41 my $bad = ['foo', \*GLOB, 'bar'];
65 print (($ret->[0] eq 'foo')?"ok $test\n":"not ok $test\n"); $test++;
H A Dfreeze.t57 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 Drecurse.t191 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 Dstore.t54 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 Dtied.t134 #$scalar = 'foo';
144 $scalar = 'foo';
H A Dtied_hook.t158 $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 DSyslog.pm1171 syslog('notice', 'fooprogram: this is really done');
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/
H A DMakefile.PL188 static int foo()
195 foo();

Completed in 65 milliseconds

<<21222324252627282930>>