Searched defs:foo (Results 26 - 49 of 49) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dpack.t51 my $foo = pack($format,@ary);
52 my @ary2 = unpack($format,$foo);
63 like($foo, qr/def/);
83 my $foo;
85 sysread BIN, $foo, 8192;
88 $sum = unpack("%32b*", $foo);
89 my $longway = unpack("b*", $foo);
240 is(unpack("p",pack("p","foo")), "foo");
246 sub foo { m subroutine
[all...]
H A Dclosure.t27 sub foo { $i = shift if @_; $i } subroutine
30 test { foo == 1 };
31 foo(2);
32 test { foo == 2 };
35 my $foo = sub {$i = shift if @_; $i };
37 test {&$foo() == 2 };
38 &$foo(3);
39 test {&$foo() == 3 };
41 test { foo == 3 and $i == 3};
51 $foo
[all...]
H A Dlocal.t5 sub foo { subroutine
20 print &foo("ok 1\n","ok 2\n");
58 local($a[1]) = 'foo';
60 print +($a[1] eq 'foo') ? "" : "not ", "ok 24\n";
77 local($h{'a'}) = 'foo';
79 print +($h{'a'} eq 'foo') ? "" : "not ", "ok 30\n";
118 local($a[1]) = 'foo';
120 print +($a[1] eq 'foo') ? "" : "not ", "ok 37\n";
143 local($h{'a'}) = 'foo';
147 print +($h{'a'} eq 'foo')
[all...]
H A Dmethod.t164 sub foo { "foo" } subroutine
168 is(A2->foo(), "foo");
169 is(do { eval 'A2::foo()'; $@ ? 1 : 0}, 1);
170 is(A2->foo(), "foo");
178 # is(do { use Config; eval 'Config->foo()';
179 # $@ =~ /^\QCan't locate object method "foo" via package "Config" at/ ? 1 : $@}, 1);
180 # is(do { use Config; eval '$d = bless {}, "Config"; $d->foo()';
[all...]
H A Dref.t15 $foo = "ok 2\n";
17 local(*foo) = *bar;
18 print $foo;
20 print $foo;
23 $foo = "ok 4\n";
25 local(*foo) = 'baz';
26 print $foo;
28 print $foo;
30 $foo = "ok 6\n";
32 local(*foo);
194 sub foo { print $_[1] } subroutine
[all...]
H A Deval.t14 eval "\$foo\n = # this is a comment\n'ok 3';";
15 print $foo,"\n";
17 eval "\$foo\n = # this is a comment\n'ok 4\n';";
18 print $foo;
21 $foo =;'; # this tests for a call through yyerror()
24 print eval '$foo = /'; # this tests for a call through fatal()
31 $foo = 5;
32 $fact = 'if ($foo <= 1) {1;} else {push(@x,$foo--); (eval $fact) * pop(@x);}';
36 $foo
224 foo: print "not ok 41\\n"; label
[all...]
H A Dgoto.t15 $foo = 1;
17 $foo = 2;
20 $foo = 0;
23 $foo = 4;
28 $foo = 3;
31 print "#1\t:$foo: == 2\n";
32 if ($foo == 2) {print "ok 1\n";} else {print "not ok 1\n";}
36 print "#2\t:$foo: == 4\n";
37 if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
40 $CMD = qq[$PERL -e "goto foo;"
45 sub foo { subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitchd.t24 sub foo { subroutine
29 Foo::foo(3);
/osnet-11/usr/src/cmd/sendmail/libsm/
H A Dt-string.c27 char foo[4]; local
41 foo[3] = 1;
42 n = sm_snprintf(foo, sizeof(foo), "foobar%dbaz", 42);
44 r = "foo";
45 SM_TEST(strcmp(foo, r) == 0);
/osnet-11/usr/src/lib/libmtmalloc/tests/
H A Dgeneral.c63 be_thread(void * foo) argument
H A Ddirtymem.c50 struct a_struct *foo, *leak; local
54 foo = (struct a_struct *)malloc(sizeof (struct_o_death));
56 free(foo);
57 foo->a = 4;
69 foo = malloc(sizeof (struct_o_death));
H A Dexhaust.c84 be_thread(void *foo) argument
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dterse.t21 sub foo {} subroutine
24 eval{ $sub = B::Terse::compile('', 'foo') };
68 my $foo = $a + $b;
74 my $boo = split('', $foo);
82 $foo = "a string";
85 $foo =~ s/(a)/$1/;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dsubval.t38 if (&foo1(0) eq '0') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
57 my($foo);
60 $foo = 1;
63 $foo = &fib($arg-1) + &fib($arg-2);
66 $foo;
72 $foo = $i + 12;
74 print "ok $foo\n";
77 print "not ok $foo\n";
110 package foo; package
111 &main'somesub(28, 'foo', __FILE_
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DAutoLoader.t25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' ))
26 or die "Can't open foo file: $!";
29 sub foo { shift; shift || "foo" } subroutine
76 sub foo;
82 my $foo = new Foo;
84 my $result = $foo->can( 'foo' );
86 is( $foo->foo, 'fo
[all...]
H A DDB.t49 is( DB->skippkg('foo'), 1, 'DB->skippkg() should push args' );
52 package foo; package
82 is( DB::_clientname('foo=A(1)'), 'foo',
163 %DB::sub = ( foo => 'foo:23-45' , bar => 'ba:r:7-890' );
166 my @subs = DB->subs( 'foo', 'boo', 'bar' );
168 my @expected = ( [ 'foo', 23, 45 ], [ 'ba:r', 7, 890 ] );
196 local @DB::dbline = ( 'foo' );
197 is( DB->lines->[0], 'foo', 'D
[all...]
H A DExporter.t183 @EXPORT_OK = qw (foo);
185 sub foo {"foo"}; subroutine
190 Moving::Target->import (foo);
192 ::ok (foo eq "foo", "imported foo before EXPORT_OK changed");
/osnet-11/usr/src/lib/libuvfs/common/
H A Ddoor.c192 libuvfs_worker_thread_prep(void *foo) argument
H A Dfs.c137 libuvfs_fs_construct(void *vfs, void *foo, int bar) argument
154 libuvfs_fs_destroy(void *vfs, void *foo) argument
H A Dname.c548 libuvfs_fid_info_construct(void *vdir, void *foo, int bar) argument
564 libuvfs_fid_info_destroy(void *vdir, void *foo) argument
/osnet-11/usr/src/lib/libsasl/lib/
H A Dsaslutil.c460 unsigned int *foo = (unsigned int *)rpool->pool; local
461 srandom(*foo);
/osnet-11/usr/src/lib/libnsl/netselect/
H A Dnetselect.c950 free_entry(void *foo) argument
952 if (foo)
953 free(foo);
/osnet-11/usr/src/lib/libshell/common/sh/
H A Dnvtype.c1408 Fields_t foo[]= variable
1572 tp = nv_mkstruct("stat_t", sizeof(struct stat), foo);
/osnet-11/usr/src/grub/grub2/grub-core/lib/libgcrypt/cipher/
H A Dcipher.c149 PROPERLY_ALIGNED_TYPE foo; member in union:__anon497

Completed in 56 milliseconds

12