| … | |
… | |
| 47 | |
47 | |
| 48 | sub log { |
48 | sub log { |
| 49 | my $self = shift; my $context; |
49 | my $self = shift; my $context; |
| 50 | $context = $self->{context} if ref($self); |
50 | $context = $self->{context} if ref($self); |
| 51 | $context = $$Value::context unless $context; |
51 | $context = $$Value::context unless $context; |
| 52 | return CORE::log($_[0])/CORE::log(10) if $context->flag('useBaseTenLogs'); |
52 | return CORE::log($_[0])/CORE::log(10) if $context->flag('useBaseTenLog'); |
| 53 | CORE::log($_[0]); |
53 | CORE::log($_[0]); |
| 54 | } |
54 | } |
| 55 | |
55 | |
| 56 | # |
56 | # |
| 57 | # Handle absolute values as a special case |
57 | # Handle absolute values as a special case |