load_buffer to return the ID

mohawk2 · mohawk2 · commit 0654e24cdfb4 · 2026-03-07T19:02:22.000Z
diff --git a/lib/PDL/Graphics/TriD/GL.pm b/lib/PDL/Graphics/TriD/GL.pm
@@ -189,6 +189,7 @@ sub load_buffer {
   glBindBuffer($target, $id);
   # physicalise on nbytes not on second use so nbytes is correct
   glBufferData_c($target, $pdl->make_physical->nbytes, $pdl->address_data, $usage);
+  $id;
 }
 sub load_idx_buffer {
   my ($this, $idname, $pdl, $usage) = @_;

Original file line number	Diff line number	Diff line change
`@@ -189,6 +189,7 @@ sub load_buffer {`
`189`	`189`	`glBindBuffer($target, $id);`
`190`	`190`	`# physicalise on nbytes not on second use so nbytes is correct`
`191`	`191`	`glBufferData_c($target, $pdl->make_physical->nbytes, $pdl->address_data, $usage);`
	`192`	`+ $id;`
`192`	`193`	`}`
`193`	`194`	`sub load_idx_buffer {`
`194`	`195`	`my ($this, $idname, $pdl, $usage) = @_;`