use inplace norm, outer

Author: mohawk2

Makefile.PL

@@ -13,10 +13,10 @@ WriteMakefile (
   VERSION_FROM => 'lib/PDL/Graphics/TriD.pm',
   CONFIGURE_REQUIRES => {
     'ExtUtils::MakeMaker' => '7.72',
-    'PDL' => '2.103',
+    'PDL' => '2.104',
   },
   PREREQ_PM => {
-    'PDL' => '2.103', # allaxislinvals, fixed *linvals
+    'PDL' => '2.104', # inplace norm
     'OpenGL::Modern' => '0.0403',
     'OpenGL::GLFW' => '0.0402',
   },

lib/PDL/Graphics/TriD/Quaternion.pm

@@ -136,8 +136,8 @@ sub as_matrix {
   my ($this) = @_;
   my ($rot, $vec) = map PDL->pdl(PDL::float, $_), $this->[0], [@$this[1..3]];
   $rot->inplace->acos; $rot *= 2;
-  $vec = $vec->norm;
-  my $uuT = $vec->t * $vec;
+  $vec->inplace->norm;
+  my $uuT = $vec->outer($vec);
   my ($cos, $sin) = map $rot->$_, qw(cos sin);
   my ($x, $y, $z) = $vec->list;
   my $S = PDL->pdl(PDL::float,