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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t184 testing \&scalar_and_hash, '$%';
186 sub scalar_and_hash ($%) { subroutine
191 print "not " unless 1 == scalar_and_hash(1);
194 print "not " unless 3 == scalar_and_hash(1,2,3);
197 print "not " unless 1 == scalar_and_hash +5;
200 print "not " unless 4 == &scalar_and_hash;
203 print "not " unless 2 == &scalar_and_hash(1,2);
206 print "not " unless 5 == &scalar_and_hash(1,@_);
209 eval "scalar_and_hash()";

Completed in 220 milliseconds