pdl() to only get_dataref/upd_data for non-zero values

PDLPorters · Dec 2, 2024 · a4a687a · a4a687a
1 parent f725390
commit a4a687a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Basic/lib/PDL/Core.pm b/Basic/lib/PDL/Core.pm
@@ -1210,8 +1210,12 @@ sub PDL::new {
          set_c($new, [0], $value);
       } else {
          $new->setdims([]);
-         ${$new->get_dataref}     = pack( $pack[$new->get_datatype], $value );
-         $new->upd_data;
+         if ($value) {
+           ${$new->get_dataref} = pack( $pack[$new->get_datatype], $value );
+           $new->upd_data;
+         } else { # do nothing if 0 - allocdata already memsets to 0
+           $new->make_physical;
+         }
       }
    }
    elsif (blessed($value)) { # Object