Fix perl FFI for floating ca derivations

Path is null when not known statically.
This commit is contained in:
John Ericson 2020-08-08 15:48:51 +00:00
parent e913a2989f
commit f7696c66e8
1 changed files with 6 additions and 2 deletions

View File

@ -303,11 +303,15 @@ SV * derivationFromPath(char * drvPath)
hash = newHV();
HV * outputs = newHV();
for (auto & i : drv.outputs)
for (auto & i : drv.outputs) {
auto pathOpt = i.second.pathOpt(*store(), drv.name);
hv_store(
outputs, i.first.c_str(), i.first.size(),
newSVpv(store()->printStorePath(i.second.path(*store(), drv.name)).c_str(), 0),
!pathOpt
? newSV(0) /* null value */
: newSVpv(store()->printStorePath(*pathOpt).c_str(), 0),
0);
}
hv_stores(hash, "outputs", newRV((SV *) outputs));
AV * inputDrvs = newAV();