r5597 - in /packages/libmath-vec-perl/trunk: Build.PL Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL debian/changelog debian/control lib/Math/Vec.pm t/00-load.t t/01-load.t t/01-pod-coverage.t t/02-basic.t t/02-pod.t t/03-test.t t/inner_angle.t
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Fri Jun 15 18:48:21 UTC 2007
Author: gwolf
Date: Fri Jun 15 18:48:21 2007
New Revision: 5597
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5597
Log:
New upstream version
Added:
packages/libmath-vec-perl/trunk/MANIFEST.SKIP
- copied unchanged from r5596, packages/libmath-vec-perl/branches/upstream/current/MANIFEST.SKIP
packages/libmath-vec-perl/trunk/t/01-load.t
- copied unchanged from r5596, packages/libmath-vec-perl/branches/upstream/current/t/01-load.t
packages/libmath-vec-perl/trunk/t/02-basic.t
- copied unchanged from r5596, packages/libmath-vec-perl/branches/upstream/current/t/02-basic.t
packages/libmath-vec-perl/trunk/t/inner_angle.t
- copied unchanged from r5596, packages/libmath-vec-perl/branches/upstream/current/t/inner_angle.t
Removed:
packages/libmath-vec-perl/trunk/t/00-load.t
packages/libmath-vec-perl/trunk/t/01-pod-coverage.t
packages/libmath-vec-perl/trunk/t/02-pod.t
packages/libmath-vec-perl/trunk/t/03-test.t
Modified:
packages/libmath-vec-perl/trunk/Build.PL
packages/libmath-vec-perl/trunk/Changes
packages/libmath-vec-perl/trunk/MANIFEST
packages/libmath-vec-perl/trunk/META.yml
packages/libmath-vec-perl/trunk/Makefile.PL
packages/libmath-vec-perl/trunk/debian/changelog
packages/libmath-vec-perl/trunk/debian/control
packages/libmath-vec-perl/trunk/lib/Math/Vec.pm
Modified: packages/libmath-vec-perl/trunk/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/Build.PL?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/Build.PL (original)
+++ packages/libmath-vec-perl/trunk/Build.PL Fri Jun 15 18:48:21 2007
@@ -3,12 +3,6 @@
use warnings;
use Module::Build;
my $build_class = 'Module::Build';
-my $custom_build = 'Module::Build::Live';
-eval("require $custom_build;");
-unless($@) {
- warn "using custom build class: '$custom_build'\n";
- $build_class = $custom_build;
-}
my $builder = $build_class->new(
module_name => 'Math::Vec',
@@ -17,6 +11,7 @@
requires => {
'Test::More' => 0,
},
+ create_makefile_pl => 'passthrough',
add_to_cleanup => [ qw(Math-Vec-* META.yml)],
);
Modified: packages/libmath-vec-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/Changes?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/Changes (original)
+++ packages/libmath-vec-perl/trunk/Changes Fri Jun 15 18:48:21 2007
@@ -1,17 +1,35 @@
-0.04
- test 03 workaround for Exporter.pm transient bug
- Exporter rework
- fixed nit in compatibility Makefile.PL
+Revision history for Math-Vec
-0.03
- Setup to run clean under 'use warnings'.
- Added overloading and :terse functions.
- More tests.
+1.01 2007-05-30
-0.02
- Fixed incorrect DotProduct() (thanks to Nao-Yuki Tanabe.)
- Added length != 0 check to Comp()
+ * bugfix #25373 "Imaginary numbers from InnerAngle()"
+ * bugfix #26925 "compatibility Makefile.PL writes no Makefile"
+
+0.04 2006-06-04
+
+ * test 03 workaround for Exporter.pm transient bug
+
+ * Exporter rework
+
+ * fixed nit in compatibility Makefile.PL
+
+0.03 2006-01-07
+
+ * Setup to run clean under 'use warnings'.
+
+ * Added overloading and :terse functions.
+
+ * More tests.
+
+0.02 2006-01-04
+
+ * Fixed incorrect DotProduct() (thanks to Nao-Yuki Tanabe.)
+
+ * Added length != 0 check to Comp()
0.01
- First Public Release
+
+ * First Public Release
+
+# vim:ts=2:sw=2:et:sta
Modified: packages/libmath-vec-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/MANIFEST?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/MANIFEST (original)
+++ packages/libmath-vec-perl/trunk/MANIFEST Fri Jun 15 18:48:21 2007
@@ -1,11 +1,11 @@
Build.PL
Changes
-MANIFEST
-META.yml # Will be created by "make dist"
+lib/Math/Vec.pm
Makefile.PL
+MANIFEST This list of files
+MANIFEST.SKIP
+META.yml
README
-lib/Math/Vec.pm
-t/00-load.t
-t/01-pod-coverage.t
-t/02-pod.t
-t/03-test.t
+t/01-load.t
+t/02-basic.t
+t/inner_angle.t
Modified: packages/libmath-vec-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/META.yml?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/META.yml (original)
+++ packages/libmath-vec-perl/trunk/META.yml Fri Jun 15 18:48:21 2007
@@ -1,6 +1,6 @@
---
name: Math-Vec
-version: 0.04
+version: 1.01
author: []
abstract: Object-Oriented Vector Math Methods in Perl
license: perl
@@ -11,8 +11,10 @@
provides:
Math::Vec:
file: lib/Math/Vec.pm
- version: 0.04
-generated_by: Module::Build version 0.28
+ version: 1.01
+ Math::Vec::Support:
+ file: lib/Math/Vec.pm
+generated_by: Module::Build version 0.2807
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: packages/libmath-vec-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/Makefile.PL?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/Makefile.PL (original)
+++ packages/libmath-vec-perl/trunk/Makefile.PL Fri Jun 15 18:48:21 2007
@@ -27,3 +27,5 @@
eval "use Module::Build::Compat 0.02; 1" or die $@;
Module::Build::Compat->run_build_pl(args => \@ARGV);
+ require Module::Build;
+ Module::Build::Compat->write_makefile(build_class => 'Module::Build');
Modified: packages/libmath-vec-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/debian/changelog?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/debian/changelog (original)
+++ packages/libmath-vec-perl/trunk/debian/changelog Fri Jun 15 18:48:21 2007
@@ -1,3 +1,10 @@
+libmath-vec-perl (1.01-1) unstable; urgency=low
+
+ * New upstream release
+ * Moving libmodule-build-perl from build-depends-indep to build-depends (Policy 7.6)
+
+ -- Gunnar Wolf <gwolf at localdomain> Fri, 15 Jun 2007 13:50:33 -0500
+
libmath-vec-perl (0.04-2) unstable; urgency=low
* New Maintainer: Debian Perl Group.
Modified: packages/libmath-vec-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/debian/control?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/debian/control (original)
+++ packages/libmath-vec-perl/trunk/debian/control Fri Jun 15 18:48:21 2007
@@ -1,8 +1,8 @@
Source: libmath-vec-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 4.0.2)
-Build-Depends-Indep: perl (>= 5.8.0-7), libmodule-build-perl, libtest-pod-perl, libtest-pod-coverage-perl
+Build-Depends: debhelper (>= 4.0.2), libmodule-build-perl
+Build-Depends-Indep: perl (>= 5.8.0-7), libtest-pod-perl, libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: gregor herrmann <gregor+debian at comodo.priv.at>, Gunnar Wolf <gwolf at debian.org>
Standards-Version: 3.7.2
Modified: packages/libmath-vec-perl/trunk/lib/Math/Vec.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmath-vec-perl/trunk/lib/Math/Vec.pm?rev=5597&op=diff
==============================================================================
--- packages/libmath-vec-perl/trunk/lib/Math/Vec.pm (original)
+++ packages/libmath-vec-perl/trunk/lib/Math/Vec.pm Fri Jun 15 18:48:21 2007
@@ -1,5 +1,5 @@
package Math::Vec;
-our $VERSION = '0.04';
+our $VERSION = '1.01';
=pod
@@ -87,7 +87,25 @@
use strict;
use warnings;
use Carp;
-use Math::Complex;
+
+{
+package Math::Vec::Support;
+# Dropping the usage of Math::Complex acos() because we don't want any
+# complex numbers to happen due to errors in the whee bits.
+sub acos {
+ my ($z) = @_;
+
+ my $abs = abs($z);
+ if($abs > 1) {
+ # just a little sanity checking
+ (($abs - 1) > 2**-16) and die "bad input to acos($z)";
+ # make it safe
+ $z = ($z > 0) ? 1 : -1;
+ }
+
+ return CORE::atan2(CORE::sqrt(1-$z*$z), $z);
+}
+}
BEGIN {
use Exporter;
@@ -668,7 +686,11 @@
my $dot_prod = $A->Dot($B);
my $m_A = $A->Length();
my $m_B = $B->Length();
- return(acos($dot_prod / ($m_A * $m_B)) );
+ # NOTE occasionally returned an answer with a very small imaginary
+ # part (for d/(A*B) values very slightly under -1 or very slightly
+ # over 1.) Large imaginary results are not possible with vector
+ # inputs, so we can just drop the imaginary bit.
+ return(Math::Vec::Support::acos($dot_prod / ($m_A * $m_B)) );
} # end subroutine InnerAngle definition
########################################################################
@@ -933,3 +955,4 @@
########################################################################
1;
+# vim:ts=4:sw=4:noet
More information about the Pkg-perl-cvs-commits
mailing list