Skip to content

Commit c2e74d7

Browse files
committed
fix meaningless $pdl->inplace->transpose
1 parent 051e475 commit c2e74d7

2 files changed

Lines changed: 4 additions & 2 deletions

File tree

Changes

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
1+
- fix bad use of inplace
2+
13
2.102 2026-03-22
24
- generate pdldoc entries right
35
- PDL::Stats::Distr switch to using PGS

t/gsl_linalg.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,7 @@ my $B = sequence(2,4); # column vectors, but must transpose for GSL
1515

1616
LU_decomp(my $lu=$A->copy, my $p=null, my $signum=null);
1717
LU_solve($lu, $p, $B->transpose, my $x=null);
18-
$x = $x->inplace->transpose;
18+
$x = $x->transpose;
1919
is_pdl $A x $x, $B;
2020
is_pdl LU_det($lu, $signum), $lu->diagonal(0,1)->prodover * $signum;
2121

@@ -38,7 +38,7 @@ is_pdl $lu, pdl '
3838
0.803921568627451 0.244515215852795 0.71427813163482 -0.264713375796178;
3939
0.274509803921569 0.476999292285916 0.949126848480345 0.363093705877982';
4040
LU_solve($lu, $p, $B->transpose, $x=null);
41-
$x = $x->inplace->transpose;
41+
$x = $x->transpose;
4242
is_pdl $A x $x, $B;
4343
is_pdl LU_det($lu, $signum), $lu->diagonal(0,1)->prodover * $signum;
4444

0 commit comments

Comments
 (0)