Lines Matching refs:num
450 # Allow for ! operator, usernames must begin with alpha-num,
451 # and contain alpha-num, '_', digits, '.', or '-'.
702 my $num;
747 ($num, $modifier, $unit) =
750 if (!defined($num)) {
761 } elsif ($num eq "OVERFLOW") {
766 $ref->[0] = $num;
803 ($num, $modifier, $unit) =
807 if (!defined($num)) {
822 } elsif ($num eq "OVERFLOW") {
828 $tuple->[1] = $num;
1579 my ($num, $modifier, $unit);
1586 ($num, $modifier, $unit) = $val =~
1590 if (!defined($num)) {
1595 if (!defined($modifier) && $num =~ /^\d+\.\d+/) {
1625 $num = $num * $mul;
1629 if ($num > $MaxNum) {
1636 if ($num == $MaxNum) {
1637 $num = $MaxNum;;
1639 } elsif ($num < $MaxNum) {
1641 $num = int($num);
1644 return ($num, $modifier, $unit);