diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-24 10:43:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-24 10:43:03 +0000 |
| commit | 6570f7848406340d371b9f81689299e3b739279f (patch) | |
| tree | 433c3efc96acdebf51bcb7ce00976ca7e398b8cf /lib/Math/Complex.pm | |
| parent | 548da3d2226362a0902abd52eeecaeeaccb0a978 (diff) | |
| download | perl-6570f7848406340d371b9f81689299e3b739279f.tar.gz | |
fix typos; avoid use constant for lowercase constants (produces
warnings now)
p4raw-id: //depot/perl@4874
Diffstat (limited to 'lib/Math/Complex.pm')
| -rw-r--r-- | lib/Math/Complex.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm index 7f6e3bfe38..5b7ddb6f2c 100644 --- a/lib/Math/Complex.pm +++ b/lib/Math/Complex.pm @@ -180,21 +180,21 @@ sub cplxe { # # The number defined as pi = 180 degrees # -use constant pi => 4 * CORE::atan2(1, 1); +sub pi () { 4 * CORE::atan2(1, 1) } # # pit2 # # The full circle # -use constant pit2 => 2 * pi; +sub pit2 () { 2 * pi } # # pip2 # # The quarter circle # -use constant pip2 => pi / 2; +sub pip2 () { pi / 2 } # # deg1 @@ -202,14 +202,14 @@ use constant pip2 => pi / 2; # One degree in radians, used in stringify_polar. # -use constant deg1 => pi / 180; +sub deg1 () { pi / 180 } # # uplog10 # # Used in log10(). # -use constant uplog10 => 1 / CORE::log(10); +sub uplog10 () { 1 / CORE::log(10) } # # i |