[libpdl-linearalgebra-perl] 04/24: Fix rt.cpan.org bug #38167 "Bug in mqr QR decomposition"

[Dima Kogan]

This is an automated email from the git hooks/post-receive script.

dkogan-guest pushed a commit to branch realupstream
in repository libpdl-linearalgebra-perl.

commit f455c7da0ebc1568711d31ffaf4f993b10a08fad
Author: Chris Marshall <devel.chm.01 at gmail.com>
Date:   Wed Dec 4 09:49:47 2013 -0500

    Fix rt.cpan.org bug #38167 "Bug in mqr QR decomposition"
---
 Special/Special.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Special/Special.pm b/Special/Special.pm
index 21326b5..f473c93 100644
--- a/Special/Special.pm
+++ b/Special/Special.pm
@@ -304,7 +304,7 @@ sub PDL::mpascal {
 		require PDL::Stat::Distributions;
 		$mat = xvals($m);
 		if ($n > 1){
-			return PDL::Stat::Distributions::choose($mat + $mat->dummy(0),$mat);		
+			return PDL::Stat::Distributions::choose($mat + $mat->dummy(0),$mat)[0];		
 		}
 		else{
 			$mat = PDL::Stat::Distributions::choose($mat,$mat->dummy(0));

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libpdl-linearalgebra-perl.git