pdl fail regarding inplace assignment & lazy evaluation?

pdlfail.pl

#!/usr/bin/env perl
use warnings;
use strict;
use PDL;

my $a = ones(2,2);
$a->inplace->minus($a*2,0);
print $a;

my $b = ones(2,2);
$b -= $b * 2;
print $b;