/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | regcomp.h | 40 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]
|
H A D | regexec.c | 793 /* May be due to an implicit anchor of m{.*foo} */
|
H A D | sv.c | 68 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 D | sv.h | 1017 /* 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 D | lex.t | 23 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 D | pat.t | 11 if (/^foo/) { print "not ok 2\n"; } else { print "ok 2\n";}
|
H A D | rs.t | 9 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 D | term.t | 27 $x[0] = 'foo'; 28 $x[1] = 'foo';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | elsif.t | 5 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 D | for.t | 25 $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 D | mod.t | 37 open(foo,'./TEST') || open(foo,'TEST') || open(foo,'t/TEST'); 39 $x++ while <foo>;
|
H A D | subval.t | 5 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 D | switch.t | 7 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 D | bproto.t | 15 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 D | decl.t | 24 $foo 38 $foo = "ok 6";
|
H A D | hints.t | 13 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 D | package.t | 6 $foo = 3; 45 sub foo { subroutine 53 print((foo(1))[0] eq 'PQR' ? "ok 8\n" : "not ok 8\n");
|
H A D | parser.t | 35 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 D | proto.t | 410 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 D | require.t | 142 $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 D | term.t | 29 @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 D | argv.t | 29 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 D | crlf.t | 19 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 D | fs.t | 178 $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 D | inplace.t | 12 `.\\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...] |