/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/ |
H A D | todo_inline | 3 not ok 1 - Foo # TODO Just testing the todo interface.
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/strict/ |
H A D | refs | 301 /(?{${"foo"}++})/; 303 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.
|
H A D | subs | 309 # see if Foo->Bar(...) etc work under strictures 311 package Foo; sub Bar { print "@_\n" } 312 Foo->Bar('a',1); 313 Bar Foo ('b',2); 314 Foo->Bar(qw/c 3/); 315 Bar Foo (qw/d 4/); 316 Foo::->Bar('A',1); 317 Bar Foo:: ('B',2); 318 Foo::->Bar(qw/C 3/); 319 Bar Foo [all...] |
H A D | vars | 297 sub foo { 308 sub foo { 318 sub foo { 329 sub foo { 355 our $foo; 356 $foo = 20; 357 package Foo; 358 print $foo, "\n"; 366 our $foo; 367 ${foo} [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/ |
H A D | av | 11 $struct = [{foo => 1, bar => 2}, "FOO", "BAR"]; 13 $a = $struct->{foo}; # This should warn. 18 $a = $struct->{foo}; # This should warn. 25 package Foo; 27 use fields qw(foo bar); 28 my $foo = fields::new('Foo'); 29 $foo->{foo} [all...] |
H A D | doio | 271 my $x = "foo"; 272 open FOO, '>', \$x; 275 open FOO, '>', \$x;
|
H A D | mg | 48 'foo' =~ /(foo)/;
|
H A D | op | 83 join(/---/, @foo); 135 my (@foo, %foo); 136 %main::foo->{"bar"}; 137 %foo->{"bar"}; 138 @main::foo->[23]; 139 @foo->[23]; 140 $main::foo = {}; %$main::foo->{"bar"}; 141 $foo [all...] |
H A D | pp | 22 sub foo () { 1 }; undef &foo; 25 $foo = sub () { 3 }; undef &$foo; 82 sub foo () { 1 } 83 undef &foo; 88 Constant subroutine foo undefined at - line 4. 92 $foo = sub () { 3 }; 93 undef &$foo;
|
H A D | pp_ctl | 56 (in cleanup) foo bar 57 package Foo; 58 DESTROY { die "foo bar" } 59 { bless [], 'Foo' for 1..10 } 202 package Foo; 203 DESTROY { die "@{$_[0]} foo bar" } 204 { bless ['A'], 'Foo' for 1..10 } 205 { bless ['B'], 'Foo' for 1..10 } 207 (in cleanup) A foo bar at - line 4. 208 (in cleanup) B foo ba [all...] |
H A D | pp_hot | 78 open(FOO, "<&FH") or die $! ; 79 print FOO "anc" ; 82 print FOO "anc" ; 85 print FOO "anc" ; 87 close (FOO) or die $! ; 91 Filehandle FOO opened only for input at - line 14. 93 Filehandle FOO opened only for input at - line 20. 125 package foo; 196 open(FOO, ">&FH") or die $! ; 197 $a = <FOO> ; [all...] |
H A D | pp_pack | 35 sub foo { my $a = "a"; return $a . $a++ . $a++ } 36 my $a = pack("p", &foo) ; 38 my $b = pack("p", &foo) ;
|
H A D | pp_sys | 231 flock FOO, 8; 237 flock FOO, 8; 243 flock() on unopened filehandle FOO at - line 19. 430 getc FOO; 442 getc FOO; 446 getc() on unopened filehandle FOO at - line 3.
|
H A D | sv | 206 $foo = join '', $a, "\n"; 207 $foo = "$a\n"; 208 $foo = "a:$a\n";
|
H A D | toke | 120 open FOO || die; 124 *foo *foo 561 # line 30 "foo" 568 yelp at foo line 30. 613 open FOO || time; 615 Precedence problem: open FOO should be open(FOO) at - line 2. 618 open FOO => "<&0"; close FOO; [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | anonsub.t | 75 eval "sub #foo\n{print 1}";
|
H A D | args.t | 58 eval { method('foo', 'bar'); }; 68 my $foo = 'foo'; local1($foo); local1($foo); 69 print "got [$foo], expected [foo]\nnot " if $foo ne 'foo';
|
H A D | array.t | 12 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them 39 @foo = (); 40 $r = join(',', $#foo, @foo); 42 $foo[0] = '0'; 43 $r = join(',', $#foo, @foo); 45 $foo[2] = '2'; 46 $r = join(',', $#foo, @foo); 239 sub foo { "a" } subroutine [all...] |
H A D | attrs.t | 60 eval 'my $x : switch(10,foo(7,3)) : expensive;'; 61 like $@, qr/^Invalid SCALAR attributes: ["']?switch\(10,foo\(7,3\)\) : expensive["']? at/; 68 eval 'my $x : switch(10,foo();'; 88 sub X::foo { 1 } 89 *Y::bar = \&X::foo; 90 *Y::bar = \&X::foo; # second time for -w 91 eval 'package Z; sub Y::bar : foo'; 144 eval 'our ${""} : foo = 1'; 146 eval 'my $$foo : bar = 1';
|
H A D | auto.t | 45 if (++($foo = '99') eq '100') {print "ok 31\n";} else {print "not ok 31\n";} 46 if (++($foo = 'a0') eq 'a1') {print "ok 32\n";} else {print "not ok 32\n";} 47 if (++($foo = 'Az') eq 'Ba') {print "ok 33\n";} else {print "not ok 33\n";} 48 if (++($foo = 'zz') eq 'aaa') {print "ok 34\n";} else {print "not ok 34\n";} 49 if (++($foo = 'A99') eq 'B00') {print "ok 35\n";} else {print "not ok 35\n";} 51 if (++($foo = 'zi') eq 'zj') {print "ok 36\n";} else {print "not ok 36\n";} 52 if (++($foo = 'zr') eq 'zs') {print "ok 37\n";} else {print "not ok 37\n";}
|
H A D | avhv.t | 102 $avhv = [{foo=>1, bar=>2}]; 115 $avhv = [{foo=>1,bar=>2,pants=>3}]; 131 $avhv->{foo} = 'xxx'; 134 my @x = delete @{$avhv}{'foo','pants'}; 147 %$avhv = (foo => 29, pants => 2, bar => 0); 152 ($extra, %$avhv) = ("moo", foo => 42, pants => 53, bar => "HIKE!"); 157 (%$avhv, $extra) = (foo => 42, pants => 53, bar => "HIKE!"); 163 (%$avhv, @extra) = (foo => 42, pants => 53, bar => "HIKE!"); 168 (@extra, %$avhv) = (foo => 42, pants => 53, bar => "HIKE!"); 173 $avhv = [{foo [all...] |
H A D | bless.t | 31 our $test = "foo"; $d1 = bless \*test, "D";
|
H A D | bop.t | 55 $foo = "A" x 150; 59 is (($foo & $bar), ($Aaz x 75 )); 61 is (($foo | $bar), ($Aoz x 75 . $zap)); 63 is (($foo ^ $bar), ($Axz x 75 . $zap));
|
H A D | caller.t | 32 sub foo { @c = caller(0) } subroutine 33 my $fooref = delete $::{foo}; 34 $fooref -> (); 61 sub foo2 { f() } subroutine 62 my $fooref2 = delete $::{foo2}; 63 $fooref2 -> ();
|
H A D | chop.t | 12 $c = do foo(); 19 sub foo { subroutine 23 @foo = ("hi \n","there\n","!\n"); 24 @bar = @foo; 28 $foo = "\n"; 29 chop($foo,@foo); 30 is (join('',$foo,@foo), 'hi there!'); 32 $_ = "foo\ [all...] |