$PDL::SHARE = $PDL::SHARE; # keep stray warning quiet