| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | tie.t | 251 { local $hash{'foo'} } warn "plain hash bad unlocalize" if exists $hash{'foo'};
252 { local $tied{'foo'} } warn "tied hash bad unlocalize" if exists $tied{'foo'};
253 { local $ENV{'foo'} } warn "%ENV bad unlocalize" if exists $ENV{'foo'};
265 $ENV{FooA} = 1;
266 $ENV{FooB} = 2;
267 print exists $ENV{FooA} ? 1 : 0, "\n";
268 print exists $ENV{FooB}
[all...] |
| H A D | tiehandle.t | 167 package Foo; package
181 tie *STDIN, 'Foo';
192 local *foo;
193 tie %foo, 'Blah';
195 ok(!tied %foo);
241 is($data, 'foobar');
245 sub READLINE { "foobar\n" }
|
| H A D | time.t | 45 ($xsec,$foo) = localtime($now);
60 ($xsec,$foo) = localtime($now);
|
| H A D | tr.t | 368 my @foo = ();
369 eval '$foo[-1] =~ tr/N/N/';
371 is( scalar @foo, 0, " doesn't extend the array");
373 eval '$foo[1] =~ tr/N/N/';
375 is( scalar @foo, 0, " doesn't extend the array");
378 my %foo = ();
379 eval '$foo{bar} =~ tr/N/N/';
381 is( scalar keys %foo, 0, " doesn't extend the hash");
383 $x = \"foo";
|
| H A D | undef.t | 36 $ary{'foo'} = 'hi';
37 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n";
39 undef $ary{'foo'};
40 print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n";
53 sub foo { print "ok 19\n"; } subroutine
55 &foo || print "not ok 19\n";
57 print defined &foo ? "ok 20\n" : "not ok 20\n";
58 undef &foo;
59 print defined(&foo) ? "not ok 21\n" : "ok 21\n";
69 tie my %foo, 'Ti
[all...] |
| H A D | vec.t | 7 print vec($foo,0,1) == 0 ? "ok 1\n" : "not ok 1\n";
8 print length($foo) == 0 ? "ok 2\n" : "not ok 2\n";
9 vec($foo,0,1) = 1;
10 print length($foo) == 1 ? "ok 3\n" : "not ok 3\n";
11 print unpack('C',$foo) == 1 ? "ok 4\n" : "not ok 4\n";
12 print vec($foo,0,1) == 1 ? "ok 5\n" : "not ok 5\n";
14 print vec($foo,20,1) == 0 ? "ok 6\n" : "not ok 6\n";
15 vec($foo,20,1) = 1;
16 print vec($foo,20,1) == 1 ? "ok 7\n" : "not ok 7\n";
17 print length($foo)
[all...] |
| H A D | ver.t | 178 is('foo',((chr(193) eq 'A') ? v134.150.150 : v102.111.111),"v-string ne ''");
|
| H A D | write.t | 76 $foo
78 $foo
80 $foo
93 $foo = 'when in the course of human events it becomes necessary';
123 $foo
132 $foo = 'when in the course of human events it becomes necessary';
164 $foo
175 $foo = 'when in the course of human events it becomes necessary';
237 $foo
242 $foo
617 sub footer subroutine
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/pod/ |
| H A D | plainer.t | 48 e.g. C<< Foo->bar() >> or C<< $obj->bar() >>
49 e.g. C<Foo-E<gt>bar()> or C<$obj-E<gt>bar()>
|
| H A D | special_seqs.t | 21 C<< $Foo <=> $Bar >> without resorting to escape sequences. If
25 Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>.
28 $self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]
32 too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>.
34 Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>.
|
| H A D | special_seqs.xr | 2 also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
7 Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
9 `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
12 too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
14 Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
| H A D | fresh_perl.t | 69 $foo=undef; $foo->go;
75 "foo";
106 $_="foo";
109 foo
124 package FOO;sub new {bless {FOO => BAR}};
127 my $self = new FOO;
128 print $$self{FOO};
132 $_="foo";
[all...] |
| H A D | runenv.t | 156 try({PERLLIB => "foobar$Config{path_sep}42"},
157 ['-e', 'print grep { $_ eq "foobar" } @INC'],
158 'foobar',
161 try({PERLLIB => "foobar$Config{path_sep}42"},
166 try({PERL5LIB => "foobar$Config{path_sep}42"},
167 ['-e', 'print grep { $_ eq "foobar" } @INC'],
168 'foobar',
171 try({PERL5LIB => "foobar$Config{path_sep}42"},
176 try({PERL5LIB => "foo",
178 ['-e', 'print grep { $_ eq "foo" }
[all...] |
| H A D | switchI.t | 21 $lib = $Is_MacOS ? 'Foo::Bar:' : 'Foo::Bar';
30 $lib = $Is_MacOS ? 'Foo::Bar2:' : 'Foo::Bar2';
|
| H A D | switchPx.aux | 24 #define FOO "ok 1\n"
33 print FOO;
|
| H A D | switchd.t | 23 package Foo; package
24 sub foo { subroutine
29 Foo::foo(3);
38 like($r, qr/^main,swdtest.tmp,9;Foo,swdtest.tmp,5;Foo,swdtest.tmp,6;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Bar,swdtest.tmp,2;Bar,swdtest.tmp,2;$/i);
|
| H A D | switches.t | 31 stdin => 'foo\0bar\0baz\0',
34 is( $r, "<foo\0><bar\0><baz\0>", "-0" );
38 stdin => 'foo\0bar\0baz\0',
41 is( $r, "foo\nbar\nbaz\n", "-0 after a -l" );
45 stdin => 'foo\0bar\0baz\0',
48 is( $r, "foo\0bar\0baz\0", "-0 before a -l" );
52 stdin => 'fooxbarxbazx',
55 is( $r, "<foox><barx><bazx>", "-0 with octal number" );
115 prog => 'print for qw/foo bar/'
117 is( $r, 'fooxbarx', '
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/x2p/ |
| H A D | s2p.t | 634 '#no autoprint', 's/./X/p', 's/foo/bar/p', 't bye', '=', 'p', ':bye' ),
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | toke.c | 235 * predeclare ..." is printed out for code like "sub bar; foo bar $x"
236 * where the compiler doesn't know if foo is a method call or a function.
487 * # line 500 "foo.pm"
757 * a keyword (do this if the word is a label, e.g. goto FOO)
797 * Called when the lexer wants $foo *foo &foo etc, but the program
798 * text only contains the "foo" portion. The first argument is a pointer
799 * to the "foo", and the second argument is the type symbol to prefix.
1184 @ in pattern could be: @foo,
[all...] |
| H A D | universal.c | 342 /* they said C<use Foo v1.2.3> and $Foo::VERSION
351 /* they said C<use Foo 1.002_003> and $Foo::VERSION
361 * said C<use Foo v1.2.3> */
|
| H A D | utf8.c | 1374 Both the special and normal mappings are stored lib/unicore/To/Foo.pl,
|
| H A D | util.c | 2643 * Assuming SEARCH_EXTS is C<".foo",".bar",NULL>, PATH search
2646 * + look for ./scriptname{,.foo,.bar}
2647 * + search the PATH for scriptname{,.foo,.bar}
2650 * + look *only* in the PATH for scriptname{,.foo,.bar} (note
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/ |
| H A D | c2ph.PL | 776 $typeno = &typeno($typeno); # sun foolery
|
| H A D | dprofpp.PL | 102 52.4 0.320 2 0.1600 main::foo
|
| H A D | h2ph.PL | 133 s/\(\w+\s*\(\*\)\s*\(\w*\)\)\s*(-?\d+)/$1/; # (int (*)(foo_t))0
181 # Shunt around such directives as `#define FOO FOO':
275 # drop "#define FOO FOO" in enums
356 # replace "sizeof(foo)" with "{foo}"
|