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/Trig.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/Trig.pm')
| -rw-r--r-- | lib/Math/Trig.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm index 3a592b47c4..68dcb94822 100644 --- a/lib/Math/Trig.pm +++ b/lib/Math/Trig.pm @@ -36,8 +36,8 @@ my @rdlcnv = qw(cartesian_to_cylindrical %EXPORT_TAGS = ('radial' => [ @rdlcnv ]); -use constant pi2 => 2 * pi; -use constant pip2 => pi / 2; +sub pi2 () { 2 * pi } # use constant generates warning +sub pip2 () { pi / 2 } # use constant generates warning use constant DR => pi2/360; use constant RD => 360/pi2; use constant DG => 400/360; |