Searched refs:ary1 (Results 1 - 1 of 1) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ | ||
H A D | subval.t | 81 sub ary1 { subroutine 85 print &ary1 eq 3 ? "ok 23\n" : "not ok 23\n"; 87 print join(':',&ary1) eq '1:2:3' ? "ok 24\n" : "not ok 24\n"; |
Completed in 20 milliseconds