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