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...@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
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
