Final fix of Perl bindings

This commit is contained in:
Vojtech Bubnik 2020-09-24 14:52:05 +02:00
parent 7cdc61b67a
commit 8f04a76337

View file

@ -142,14 +142,13 @@ _constant()
%code%{ %code%{
// Touching every config as the Perl bindings does not correctly export ModelConfig, // Touching every config as the Perl bindings does not correctly export ModelConfig,
// therefore the configs have often invalid timestamps. // therefore the configs have often invalid timestamps.
model->config.touch();
for (auto obj : model->objects) { for (auto obj : model->objects) {
obj->config.touch(); obj->config.touch();
for (auto vol : obj->volumes) for (auto vol : obj->volumes)
vol->config.touch(); vol->config.touch();
} }
for (auto mat : model->materials) for (auto mat : model->materials)
mat->config.touch(); mat.second->config.touch();
RETVAL = THIS->apply(*model, *config); RETVAL = THIS->apply(*model, *config);
%}; %};
bool has_infinite_skirt(); bool has_infinite_skirt();