[libpdl-linearalgebra-perl] 06/24: Add mpascal patch from RT ticket #38167

[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 25b39915833e32e843e4dea49a82179e8bb98313
Author: Chris Marshall <devel.chm.01 at gmail.com>
Date:   Sun Mar 2 14:35:24 2014 -0500

    Add mpascal patch from RT ticket #38167
    
    This gives the same result for the symmetric matrix as the
    MATLAB routine documentation.  We don't appear to give the
    same results for upper/lower triangular forms.  TODO?
---
 Special/Special.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Special/Special.pm b/Special/Special.pm
index df69a71..88d4828 100644
--- a/Special/Special.pm
+++ b/Special/Special.pm
@@ -316,7 +316,7 @@ sub PDL::mpascal {
 			require PDL::GSLSF::GAMMA;
 			if ($n > 1){
 				$mat = xvals($m);
-				return PDL::GSLSF::GAMMA::gsl_sf_choose($mat + $mat->dummy(0),$mat);					
+				return (PDL::GSLSF::GAMMA::gsl_sf_choose($mat + $mat->dummy(0),$mat))[0];					
 			}else{
 				$mat = xvals($m, $m);
 				return (PDL::GSLSF::GAMMA::gsl_sf_choose($mat->tritosym,$mat->xchg(0,1)->tritosym))[0]->mtri($n);

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