Diff of /Special/Special.pm [be2ca0] .. [591b21] Maximize Restore

  Switch to side-by-side view

--- a/Special/Special.pm
+++ b/Special/Special.pm
@@ -12,14 +12,10 @@
 @EXPORT_OK  = qw( mhilb mvander mpart mhankel mtoeplitz mtri mpascal mcompanion);
 %EXPORT_TAGS = (Func=>[@EXPORT_OK]);
 
-our $VERSION = '0.12';
-$VERSION = eval $VERSION;
-
+our $VERSION = 0.03;
 our @ISA = ( 'PDL::Exporter');
 
 use strict;
-
-=encoding Latin-1
 
 =head1 NAME
 
@@ -304,7 +300,7 @@
 		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);		
 		}
 		else{
 			$mat = PDL::Stat::Distributions::choose($mat,$mat->dummy(0));
@@ -316,7 +312,7 @@
 			require PDL::GSLSF::GAMMA;
 			if ($n > 1){
 				$mat = xvals($m);
-				return (PDL::GSLSF::GAMMA::gsl_sf_choose($mat + $mat->dummy(0),$mat))[0];					
+				return PDL::GSLSF::GAMMA::gsl_sf_choose($mat + $mat->dummy(0),$mat);					
 			}else{
 				$mat = xvals($m, $m);
 				return (PDL::GSLSF::GAMMA::gsl_sf_choose($mat->tritosym,$mat->xchg(0,1)->tritosym))[0]->mtri($n);