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 D | array.t | 10 $ENV{BAR} = "bar"; 13 use Env qw(FOO $BAR); 16 $BAR .= "/baz"; 23 print "not " if $BAR ne 'bar/baz';
|
H A D | env.t | 17 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 D | Std.t | 61 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 D | SelfLoader.t | 50 open(BAR, ">$dir${sep}Bar.pm") or die; 51 print BAR <<'EOT'; 70 close(BAR);
|
H A D | AutoLoader.t | 34 open(BAR, '>', File::Spec->catfile( $fulldir, 'bar.al' )) 36 print BAR <<'EOT'; 41 close(BAR);
|
H A D | constant.pm | 246 BAR => "This", "won't", "work!", # Error!
|
H A D | CPAN.pm | 6232 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 D | ref.t | 48 $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 D | proto.t | 441 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 D | lex.t | 92 $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 D | fresh_perl.t | 124 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 D | Name.pl | 171 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 D | safeops.t | 262 pipe_op pipe FOO,BAR
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | CC.pm | 1852 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 D | C.pm | 2152 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 D | MM_Any.pm | 309 BAR \
|
H A D | Constant.pm | 14 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 D | texinfo.tex | 7836 \gdef^^a6{\missingcharmsg{BROKEN BAR}}
|
Completed in 123 milliseconds