Searched refs:BAR (Results 1 - 18 of 18) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Env/t/
H A Darray.t10 $ENV{BAR} = "bar";
13 use Env qw(FOO $BAR);
16 $BAR .= "/baz";
23 print "not " if $BAR ne 'bar/baz';
H A Denv.t17 use vars qw(@BAR);
37 print "# BAR = (", join(", ", @BAR), ")\n";
40 else { print "not " unless array_equal(\@FOO, \@BAR); }
49 @BAR = qw(a B c);
54 $BAR[1] = 'b';
59 $#BAR = 0;
64 push @BAR, 'b', 'c';
69 pop @BAR;
74 shift @BAR;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/
H A DStd.t61 our ($HELP, $FILE, $FOO, $BAR, $NO);
67 'bar!' => \$BAR,
73 ok( $HELP && $FOO && !$BAR && $FILE eq 'foo' && $NO == 5, 'options set' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSelfLoader.t50 open(BAR, ">$dir${sep}Bar.pm") or die;
51 print BAR <<'EOT';
70 close(BAR);
H A DAutoLoader.t34 open(BAR, '>', File::Spec->catfile( $fulldir, 'bar.al' ))
36 print BAR <<'EOT';
41 close(BAR);
H A Dconstant.pm246 BAR => "This", "won't", "work!", # Error!
H A DCPAN.pm6232 BAR/Foo-1.23.tar.gz) with all accompanying material. But if you would
6235 directory. If the author is BAR, this might be BAR/Foo-1.23_90.tar.gz;
6238 install BAR/Foo-1.23_90.tar.gz
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dref.t48 $FOO = \$BAR;
49 $BAR = \$BAZ;
124 $anonhash2 = {FOO => BAR, ABC => XYZ,};
146 print $THIS->{FOO} eq BAR ? "ok $ARGS[0]\n" : "not ok $ARGS[0]\n";
171 $main'object = bless {FOO => foo, BAR => bar};
177 print $object->doit("BAR") eq bar ? "ok 36\n" : "not ok 36\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t441 sub BAR { "quux" } subroutine
484 star2 FOO, BAR, sub {
485 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR';
486 print "ok $i - star2 FOO, BAR\n";
492 star2 BAR(), FOO, sub {
494 print "ok $i - star2 BAR(), FOO\n"
496 star2(FOO, BAR(), sub {
498 print "ok $i - star2(FOO, BAR())\n";
500 star2 "FOO", "BAR", sub {
501 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR';
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dlex.t92 $bar = BAR;
98 print "${foo}{$bar}" eq "FOO{BAR}" ? "ok 22\n" : "not ok 22\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dfresh_perl.t124 package FOO;sub new {bless {FOO => BAR}};
130 BAR
614 BAR
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/unicore/
H A DName.pl171 00A6 BROKEN BAR
415 019A LATIN SMALL LETTER L WITH BAR
629 0289 LATIN SMALL LETTER U BAR
721 02E5 MODIFIER LETTER EXTRA-HIGH TONE BAR
722 02E6 MODIFIER LETTER HIGH TONE BAR
723 02E7 MODIFIER LETTER MID TONE BAR
724 02E8 MODIFIER LETTER LOW TONE BAR
725 02E9 MODIFIER LETTER EXTRA-LOW TONE BAR
5588 2015 HORIZONTAL BAR
5758 2114 L B BAR SYMBO
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeops.t262 pipe_op pipe FOO,BAR
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DCC.pm1852 initialise with C<$SIG{BAR} = "foo">. A better fix, though, is just
1853 to change it to C<$SIG{BAR} = \&foo>. You can have multiple B<-u>
H A DC.pm2152 initialise with C<$SIG{BAR} = "foo">. A better fix, though, is just
2153 to change it to C<$SIG{BAR} = \&foo>. You can have multiple B<-u>
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DMM_Any.pm309 BAR \
H A DConstant.pm14 NAMES => [qw(FOO BAR BAZ)],
16 # Generates wrapper code to make the values of the constants FOO BAR BAZ
/osnet-11/usr/src/grub/grub2/docs/
H A Dtexinfo.tex7836 \gdef^^a6{\missingcharmsg{BROKEN BAR}}

Completed in 1325 milliseconds