Searched full:foo* (Results 251 - 275 of 797) sorted by relevance

<<11121314151617181920>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dregcomp.h40 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]
H A Dregexec.c793 /* May be due to an implicit anchor of m{.*foo} */
H A Dsv.c68 PL_foo_arenaroot pointer to list of foo arenas,
69 PL_foo_root pointer to list of free foo bodies
70 ... for foo in xiv, xnv, xrv, xpv etc.
7953 assigned to as BEGIN {$a = \"Foo"} will fail. */
9319 The foo_dup() functions make an exact copy of an existing foo thinngy.
H A Dsv.h1017 /* define FOOx(): idempotent versions of FOO(). If possible, use a local
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dlex.t23 print "foo\n";
28 eval '$foo{1} / 1;';
31 eval '$foo = 123+123.4+123e4+123.4E5+123.4e+5+.12;';
33 $foo = int($foo * 100 + .5);
34 if ($foo eq 2591024652) {print "ok 7\n";} else {print "not ok 7 :$foo:\n";}
40 $foo = 'ok 9';
42 $foo
50 $foo
264 sub foo::::::bar { print "ok $test\\n"; $test++ } subroutine
[all...]
H A Dpat.t11 if (/^foo/) { print "not ok 2\n"; } else { print "ok 2\n";}
H A Drs.t9 1 while unlink 'foo'; # in case junk left around
10 rmdir 'foo';
11 open TESTFILE, ">./foo" or die "error $! $^E opening";
16 open TESTFILE, "<./foo";
59 unlink "./foo";
60 open TESTFILE, ">./foo";
64 open TESTFILE, "<./foo";
78 $foo = 2;
79 $/ = \$foo;
84 $foo
[all...]
H A Dterm.t27 $x[0] = 'foo';
28 $x[1] = 'foo';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Delsif.t5 sub foo { subroutine
22 if (($x = &foo(1)) == 1) {print "ok 1\n";} else {print "not ok 1 '$x'\n";}
23 if (($x = &foo(2)) == 2) {print "ok 2\n";} else {print "not ok 2 '$x'\n";}
24 if (($x = &foo(3)) == 3) {print "ok 3\n";} else {print "not ok 3 '$x'\n";}
25 if (($x = &foo(4)) == 4) {print "ok 4\n";} else {print "not ok 4 '$x'\n";}
H A Dfor.t25 $foo = 3210;
27 foreach $foo (@ary) {
28 $foo *= 2;
39 # this also tests that $foo was restored to 3210 after test 3
41 $foo .= $_;
43 if ($foo eq '3210abcde') {print "ok 5\n";} else {print "not ok 5 $foo\n";}
45 foreach $foo (("ok 6\n","ok 7\n")) {
46 print $foo;
49 sub foo { subroutine
[all...]
H A Dmod.t37 open(foo,'./TEST') || open(foo,'TEST') || open(foo,'t/TEST');
39 $x++ while <foo>;
H A Dsubval.t5 sub foo1 { subroutine
10 sub foo2 { subroutine
16 sub foo3 { subroutine
21 sub foo4 { subroutine
26 sub foo5 { subroutine
31 sub foo6 { subroutine
38 if (&foo1(0) eq '0') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
39 if (&foo1(1) eq 'true2') {print "ok 2\n";} else {print "not ok 2\n";}
40 if (&foo2(
110 package foo; package
[all...]
H A Dswitch.t7 sub foo1 { subroutine
22 print do foo1(0) == 20 ? "ok 1\n" : "not ok 1\n";
23 print do foo1(1) == 1 ? "ok 2\n" : "not ok 2\n";
24 print do foo1(2) == 2 ? "ok 3\n" : "not ok 3\n";
25 print do foo1(3) == 3 ? "ok 4\n" : "not ok 4\n";
26 print do foo1(4) == 4 ? "ok 5\n" : "not ok 5\n";
27 print do foo1(5) == 20 ? "ok 6\n" : "not ok 6\n";
29 sub foo2 { subroutine
43 print do foo2(0) == 20 ? "ok 7\n" : "not ok 7\n";
44 print do foo2(
50 sub foo3 { subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dbproto.t15 sub foo {} subroutine
31 q[ defined(&foo, $bar);
32 undef(&foo, $bar);
37 q[ scalar(&foo,$bar);
38 defined &foo, &foo, &foo;
39 undef &foo, $bar;
H A Ddecl.t24 $foo
38 $foo = "ok 6";
H A Dhints.t13 print "not " if exists $^H{foo};
14 print "ok 1 - \$^H{foo} doesn't exist initially\n";
20 BEGIN { $^H |= 0x00020000; $^H{foo} = "a"; }
22 print "not " if $^H{foo} ne "a";
23 print "ok 3 - \$^H{foo} is now 'a'\n";
28 BEGIN { $^H |= 0x00020000; $^H{foo} = "b"; }
30 print "not " if $^H{foo} ne "b";
31 print "ok 5 - \$^H{foo} is now 'b'\n";
35 print "not " if $^H{foo} ne "a";
36 print "ok 6 - \$H^{foo} restore
[all...]
H A Dpackage.t6 $foo = 3;
45 sub foo { subroutine
53 print((foo(1))[0] eq 'PQR' ? "ok 8\n" : "not ok 8\n");
H A Dparser.t35 eval 'tie FOO, "Foo";';
39 eval 'undef foo';
55 eval q{ qq(foo$) };
86 $c =~ s/${a}{/foo/;
87 is($c, 'foo', "interpolation, s/...//");
88 $c =~ s/foo/${a}{/;
101 my %data = ( foo => "\n" );
104 $data{foo});
111 1 { foo
[all...]
H A Dproto.t410 print "# CORE:Foo => ($p), \$@ => `$@'\nnot "
411 if defined ($p = eval { prototype('CORE::Foo') or 1 }) or $@ !~ /^Can't find an opnumber/;
417 sub foo1 ($\@);
418 eval q{ foo1 "s" };
422 sub foo2 ($\%);
423 eval q{ foo2 "s" };
427 sub X::foo3;
428 *X::foo3 = sub {'ok'};
429 print "# $@not " unless eval {X->foo3} eq 'ok';
432 sub X::foo4 (
[all...]
H A Drequire.t142 $foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i;
143 @foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i;
146 $foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i;
147 @foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i;
H A Dterm.t29 @foo = (1,2,3);
30 if ("$foo[1]b" eq "2b") { print "ok 12\n";} else {print "not ok 12\n";}
31 if ("@foo[0..1]b" eq "1 2b") { print "ok 13\n";} else {print "not ok 13\n";}
33 if ("@foo[0..1]b" eq "1::2b") { print "ok 14\n";} else {print "not ok 14\n";}
37 $a = "{ '\\'' , 'foo' }";
41 $a = "{ '\\\\\\'abc' => 'foo' }";
45 $a = "{'a\\\n\\'b','foo'}";
49 $a = "{'\\\\\\'\\\\'=>'foo'}";
53 $a = "{q,a'b,,'foo'}";
57 $a = "{q[[']]=>'foo'}";
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dargv.t29 stdin => "foo\n",
36 stdin => "foo\n",
38 is($x, "foo\n", ' from just STDIN');
115 fresh_perl_is( <<'**PROG**', "foobar", {}, "ARGV aliasing and eof()" );
117 print OUT "foo";
H A Dcrlf.t19 ok(open(FOO,">:crlf",$file));
20 ok(print FOO 'a'.((('a' x 14).qq{\n}) x 2000) || close(FOO));
21 ok(open(FOO,"<:crlf",$file));
24 { local $/; $text = <FOO> }
28 binmode(FOO);
29 seek(FOO,0,0);
30 { local $/; $text = <FOO> }
49 ok(close(FOO));
59 open(FOO, ">
[all...]
H A Dfs.t178 $foo = (utime 500000000,500000000 + $delta,'b');
180 is($foo, 1, "utime");
204 $foo = (utime 400000000,500000000 + 2*$delta,'b');
256 $foo = `grep perl c 2>&1`;
257 ok($foo, "found perl in c");
H A Dinplace.t12 `.\\perl -le "print 'foo'" > .a`;
13 `.\\perl -le "print 'foo'" > .b`;
14 `.\\perl -le "print 'foo'" > .c`;
18 `perl -le "print 'foo'" > .a`;
19 `perl -le "print 'foo'" > .b`;
20 `perl -le "print 'foo'" > .c`;
24 `$^X -le "print 'foo'" > .a`;
25 `$^X -le "print 'foo'" > .b`;
26 `$^X -le "print 'foo'" > .c`;
30 `MCR []perl. -le "print 'foo'" >
[all...]

Completed in 400 milliseconds

<<11121314151617181920>>