fix setting mgeigenx outputs when schur requested

mohawk2 · mohawk2 · commit 1f9eb828f57a · 2025-04-22T21:39:08.000+01:00
diff --git a/lib/PDL/LinearAlgebra.pm b/lib/PDL/LinearAlgebra.pm
@@ -2798,7 +2798,7 @@ sub PDL::mgeigenx {
 	} elsif ($info) {
 		laerror("mgeigenx: Error from hgeqz or tgevc");
 	}
-	$result{qw(aschur bschur)} = map $_->t, $a, $b if $opt{schur};
+	@result{qw(aschur bschur)} = map $_->t, $a, $b if $opt{schur};
 	$result{balance} = cat $ilo, $ihi if $opt{permute};
 	@result{qw(info anorm bnorm)} = ($info, $abnrm, $bbnrm);
 	@result{qw(lscale rscale)} =  ($lscale, $rscale) if $opt{scale};

Original file line number	Diff line number	Diff line change
`@@ -2798,7 +2798,7 @@ sub PDL::mgeigenx {`
`2798`	`2798`	`} elsif ($info) {`
`2799`	`2799`	`laerror("mgeigenx: Error from hgeqz or tgevc");`
`2800`	`2800`	`}`
`2801`		`- $result{qw(aschur bschur)} = map $_->t, $a, $b if $opt{schur};`
	`2801`	`+ @result{qw(aschur bschur)} = map $_->t, $a, $b if $opt{schur};`
`2802`	`2802`	`$result{balance} = cat $ilo, $ihi if $opt{permute};`
`2803`	`2803`	`@result{qw(info anorm bnorm)} = ($info, $abnrm, $bbnrm);`
`2804`	`2804`	`@result{qw(lscale rscale)} = ($lscale, $rscale) if $opt{scale};`