[libpdl-linearalgebra-perl] 05/24: Fix typo in bug fix for rt #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 52c8b263ed2054973405ebd8eda69486ad98a9f1
Author: Chris Marshall <devel.chm.01 at gmail.com>
Date:   Wed Dec 4 09:54:44 2013 -0500

    Fix typo in bug fix for rt #38167
---
 Special/Special.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Special/Special.pm b/Special/Special.pm
index f473c93..df69a71 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)[0];		
+			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