| CC: | jkeenan [...] cpan.org |
| Subject: | Inconsistency in Math::Trig::great_circle_destination |
#####
This was first reported as https://rt.perl.org/Ticket/Display.html?id=122115. Since Math-Complex is maintained on CPAN, I am copying the original text here. -- jkeenan
#####
This is a bug report for perl from melissa-perlbug@littlebluecar.co.uk,
generated with the help of perlbug 1.39 running under perl 5.16.3.
-----------------------------------------------------------------
[Please describe your issue here]
great_circle_destination is inconsistent with great_circle_distance
great_circle_distance requires the user to convert the coordinates to 'mathematics' as described in docs
http://perldoc.perl.org/Math/Trig.html#great_circle_distance
destination does the conversion for you, which means you can't pass the same values to it as you
can to distance.
Either the pip2 line below should be removed, or the documentation should be updated to indicate
that the function will do the adjustment for you!
sub great_circle_destination {
my ( $theta0, $phi0, $dir0, $dst ) = @_;
- my $lat0 = pip2 - $phi0;
Mel
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=library
severity=low
module=Math::Trig
---
Site configuration information for perl 5.16.3:
Configured by melissa at Sat Jun 7 16:20:05 UTC 2014.
Summary of my perl5 (revision 5 version 16 subversion 3) configuration:
Platform:
osname=freebsd, osvers=10.0-release, archname=amd64-freebsd-thread-multi
uname='freebsd pkg.blacknosugar.com 10.0-release freebsd 10.0-release amd64 '
config_args='-sde -Dprefix=/usr/local -Darchlib=/usr/local/lib/perl5/5.16/mach -Dprivlib=/usr/local/lib/perl5/5.16 -Dman3dir=/usr/local/lib/perl5/5.16/perl/man/man3 -Dman1dir=/usr/local/man/man1 -Dsitearch=/usr/local/lib/perl5/site_perl/5.16/mach -Dsitelib=/usr/local/lib/perl5/site_perl/5.16 -Dscriptdir=/usr/local/bin -Dsiteman3dir=/usr/local/lib/perl5/5.16/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Ui_malloc -Ui_iconv -Uinstallusrbinperl -Dcc=cc -Duseshrplib -Dinc_version_list=none -Dccflags=-DAPPLLIB_EXP="/usr/local/lib/perl5/5.16/BSDPAN" -Doptimize=-O2 -pipe -fno-strict-aliasing -Ui_gdbm -Dusethreads=y -Dusemymalloc=n -Duse64bitint'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.16/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include',
optimize='-O2 -pipe -fno-strict-aliasing',
cppflags='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.16/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
ccversion='', gccversion='4.2.1 Compatible FreeBSD Clang 3.3 (tags/RELEASE_33/final 183502)', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags ='-pthread -Wl,-E -fstack-protector -L/usr/local/lib'
libpth=/usr/lib /usr/local/lib
libs=-lm -lcrypt -lutil
perllibs=-lm -lcrypt -lutil
libc=, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -Wl,-R/usr/local/lib/perl5/5.16/mach/CORE'
cccdlflags='-DPIC -fPIC', lddlflags='-shared -L/usr/local/lib -fstack-protector'
Locally applied patches:
---
@INC for perl 5.16.3:
/usr/local/lib/perl5/5.16/BSDPAN
/usr/local/lib/perl5/site_perl/5.16/mach
/usr/local/lib/perl5/site_perl/5.16
/usr/local/lib/perl5/5.16/mach
/usr/local/lib/perl5/5.16
.
---
Environment for perl 5.16.3:
HOME=/home/melissa
LANG (unset)
LANGUAGE (unset)
LC_CTYPE=en_GB.UTF-8
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/home/melissa/bin
PERL_BADLANG (unset)
SHELL=/bin/tcsh