Final fix of Perl bindings
This commit is contained in:
parent
7cdc61b67a
commit
8f04a76337
1 changed files with 1 additions and 2 deletions
|
@ -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();
|
||||||
|
|
Loading…
Reference in a new issue