mirror of
https://github.com/NixOS/nix.git
synced 2024-11-22 06:42:28 +00:00
nix-perl: Fix segfault in queryPathInfo)
This commit is contained in:
parent
d37dc71e3c
commit
5e086ba8c3
@ -102,7 +102,7 @@ SV * queryPathInfo(char * path, int base32)
|
|||||||
PPCODE:
|
PPCODE:
|
||||||
try {
|
try {
|
||||||
auto info = store()->queryPathInfo(store()->parseStorePath(path));
|
auto info = store()->queryPathInfo(store()->parseStorePath(path));
|
||||||
if (info->deriver)
|
if (!info->deriver)
|
||||||
XPUSHs(&PL_sv_undef);
|
XPUSHs(&PL_sv_undef);
|
||||||
else
|
else
|
||||||
XPUSHs(sv_2mortal(newSVpv(store()->printStorePath(*info->deriver).c_str(), 0)));
|
XPUSHs(sv_2mortal(newSVpv(store()->printStorePath(*info->deriver).c_str(), 0)));
|
||||||
|
Loading…
Reference in New Issue
Block a user