Fix of perl bindings

This commit is contained in:
bubnikv 2019-06-05 09:54:52 +02:00
parent 8da54139c4
commit c7ba48a473

View File

@ -100,7 +100,7 @@ TriangleMesh::vertices()
CODE: CODE:
if (!THIS->repaired) CONFESS("vertices() requires repair()"); if (!THIS->repaired) CONFESS("vertices() requires repair()");
if (THIS->stl.v_shared == NULL) if (THIS->stl.v_shared.empty())
stl_generate_shared_vertices(&(THIS->stl)); stl_generate_shared_vertices(&(THIS->stl));
// vertices // vertices
@ -124,7 +124,7 @@ TriangleMesh::facets()
CODE: CODE:
if (!THIS->repaired) CONFESS("facets() requires repair()"); if (!THIS->repaired) CONFESS("facets() requires repair()");
if (THIS->stl.v_shared == NULL) if (THIS->stl.v_shared.empty())
stl_generate_shared_vertices(&(THIS->stl)); stl_generate_shared_vertices(&(THIS->stl));
// facets // facets