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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t140 testing \&over_one_args, '$@';
142 sub over_one_args ($@) { subroutine
147 print "not " unless 1 == over_one_args(1);
150 print "not " unless 2 == over_one_args(1,2);
153 print "not " unless 1 == over_one_args +5;
156 print "not " unless 4 == &over_one_args;
159 print "not " unless 2 == &over_one_args(1,2);
162 print "not " unless 5 == &over_one_args(1,@_);
165 eval "over_one_args()";

Completed in 20 milliseconds