Searched defs:twoface (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dsort.t118 sub twoface { *twoface = sub { $a <=> $b }; &twoface } subroutine
119 eval { @b = sort twoface 4,1,3,2 };
123 eval { no warnings 'redefine'; *twoface = sub { &Backwards } };
126 eval { @b = sort twoface 4,1,3,2 };
131 *twoface = sub { *twoface = *Backwards; $a <=> $b };
133 eval { @b = sort twoface 4,1 };
138 *twoface
[all...]

Completed in 22 milliseconds