forked from lix-project/lix
Merge pull request #4272 from kwohlfahrt/perl-sigs
Return derivation signatures in Perl bindings
This commit is contained in:
commit
7827d95f6c
|
@ -110,10 +110,14 @@ SV * queryPathInfo(char * path, int base32)
|
||||||
XPUSHs(sv_2mortal(newSVpv(s.c_str(), 0)));
|
XPUSHs(sv_2mortal(newSVpv(s.c_str(), 0)));
|
||||||
mXPUSHi(info->registrationTime);
|
mXPUSHi(info->registrationTime);
|
||||||
mXPUSHi(info->narSize);
|
mXPUSHi(info->narSize);
|
||||||
AV * arr = newAV();
|
AV * refs = newAV();
|
||||||
for (auto & i : info->references)
|
for (auto & i : info->references)
|
||||||
av_push(arr, newSVpv(store()->printStorePath(i).c_str(), 0));
|
av_push(refs, newSVpv(store()->printStorePath(i).c_str(), 0));
|
||||||
XPUSHs(sv_2mortal(newRV((SV *) arr)));
|
XPUSHs(sv_2mortal(newRV((SV *) refs)));
|
||||||
|
AV * sigs = newAV();
|
||||||
|
for (auto & i : info->sigs)
|
||||||
|
av_push(sigs, newSVpv(i.c_str(), 0));
|
||||||
|
XPUSHs(sv_2mortal(newRV((SV *) sigs)));
|
||||||
} catch (Error & e) {
|
} catch (Error & e) {
|
||||||
croak("%s", e.what());
|
croak("%s", e.what());
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue