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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DConstant.t462 while (my ($point, $bearing) = each %compass) {
463 $header .= "#define $point $bearing\n"
616 while (my ($point, $bearing) = each %compass) {
617 $test_body .= "'$point' => $bearing, "
625 while (my ($point, $bearing) = each %compass) {
630 } elsif (!defined $bearing) {
633 } elsif ($val != $bearing) {
634 print "# $point: \$val=$val, not $bearing\n";

Completed in 16 milliseconds