Searched refs:ary2 (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dsubval.t89 sub ary2 { subroutine
97 print &ary2 eq 3 ? "ok 25\n" : "not ok 25\n";
99 $x = join(':',&ary2);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dpack.t48 # test2 failing because ary2 goes str->numeric->str and ary doesn't.
52 my @ary2 = unpack($format,$foo);
54 is($#ary, $#ary2);
57 my $out2=join(':',@ary2);

Completed in 29 milliseconds